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Preface 



This book has been produced primarily for people who enjoy games 
but would like to have the 'pleasure' of typing them in themselves. In 
this way it is possible to build up a good collection of programs for 
very little outlay. 

Entering programs from listings is also the best way to learn the 
syntax of BASIC and to see how various results can be obtained. 
Later as you develop your programming skills you will be able to 
adapt the programs to suit your own preferences. 

Finally it is hoped that you will be suitably inspired and 
experienced to be able to write your own programs from scratch. 

Although this book can be a useful aid to learning it is not designed 
as a tutorial. If I had taken pages to tell you why and how each 
element of a program functioned then there would probably only be 
half as many listings! My aim and the aim of our merry band of 
programmers has been to ensure that each program is well worth the 
effort of typing in. In our efforts to ensure that the finished games are 
satisfactory machine code routines have been incorporated. The code 
is POKED into the memory from data and it will not be necessary to 
know about the wild code. 

It is important to realise however that CBM BASIC, even with a 
little help from machine code, cannot equal a fully coded program. 
The compromise which has been adopted in this book is as far as it is 
possible to go without making each one totally machine code. In the 
final analysis however it is whether the game is 'playable' that matters 
and I hope you will agree that each game in this collection is 
enjoyable and playable. 

This book represents a great deal of hard work and long hours 
from a team of people. I am pleased to be able to record my 
appreciation to the following Mr Micro programmers: Issi, Greg, 
Bootsy, David and Evan who each contributed a great deal to the 
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project. I am also grateful to our friends at Commodore for the loan 
of equipment and for their valuable technical assistance. 

The other important person to have worked on the book is my wife 
Val who took my handwritten input and produced the finished 
word processed output. 

Finally I am grateful to Richard Miles of Collins who 
commissioned this book and who ensured that despite the many 
possible pitfalls of publishing it has reached you, the C16 owner, for 
whom the entire exercise was undertaken. 

Jim Gregory 



Introduction 



Each game featured in these pages has been specially written for the 
C16 and should also work with the PLUS 4. This has resulted in a 
range of programs covering all types of games which incorporate 
many useful techniques. 

Each listing has been printed with a width setting of 42 columns. 

After extensive testing all the listings have been produced from 
actual working programs. Each has been reproduced directly from 
the computer printout. This means that the most likely reason for a 
program not working is that the reader has typed it in wrong! 

I have entered many programs from books and magazines, and I 
know from experience that at some stage you will not believe that you 
have got it wrong. Please read the following notes on programming 
carefully. They will help you to avoid the most common mistakes as 
you enter the programs. Follow the advice given and you will find 
that your microcomputer hobby can be more enjoyable and less 
frustrating. 

Although most of the following guidelines may seem obvious, each 
will save you time or trouble. If you are prepared and relaxed then 
few errors will be made. 



First program yourself 

1. Set up your equipment on a desk or table, make sure that you 
are seated properly and try to keep your back straight. Ensure that 
lighting is good and that the book is supported where it can be read 
easily. 

2. Before you start a long typing session ensure that everything is 
plugged in! 

3. Make sure that you have a good supply of blank tapes. 

4. If your blank tapes have a 'leader' on them, it is a good idea to 
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prepare them for saving by turning the hub until the brown of the 
tape shows. 

5. To make certain everything is OK, get a long audio tape such as 
a C90, which will be your working tape. Next complete a 'Save and 
load test', e.g. type in 

10 REM TEST 

20 PRINP'TEST O.K." 

30 GOTO 10 

or a similar short program. 

Save Test, rewind the tape, then load Test, and 'RUN' it. IfthisisOK, 
do not rewind the tape, leave it where it stopped. If all does not 
operate correctly then check everything and try again, until all is 
working. You will then be able to use this tape to store your program, 
either when you have finished or part way through to be continued 
later. 

6. When you save a part version give it a title which will help you 
later, such as 'VI', 'V2', etc. You may prefer to use the date and time 
of saving, e.g. 8.15-14/10/85. 

As you save a version, remember to make a note on the cassette or 
insert of the title and the counter number. These will enable you to 
retrieve the program quickly when you wish to resume entering the 
program or to 'debug' your completed program. 

7. Always save onto tape beforeyou type RUN. The microworld is 
full of keen folk who lost hours of work because they typed RUN 
before saving. (If you have saved earlier versions as directed, at least 
only part will be lost.) 

The reasons for losing a program in this way are various. Examples 
are: mistyping words so that the interpreter performs a 'new' 
instruction, or gets into a loop from which there is no escape except 
by switching off. Programs which incorporate either machine code, 
POKE statements or System calls are most liable to 'crash', due to 
incorrect values being encountered by the program. 

8. When a program is finished and working it is recommended 
that one copy is kept on a C90 back-up tape along with other 
programs. The main copy should be stored on a suitable short length 
cassette such as a C15. Only one program per side should be allowed, 
to enable it to be loaded easily and quickly when required. Remember 
to write the title on the label. 

This two-tape system should help to prevent retyping if a cassette 
is lost, damaged or develops a fault. 
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9. Many users become very careless about storage of cassettes and 
then wonder why they sometimes become faulty. If you want to keep 
what you've saved follow these rules: 

• Identify all tapes and cases clearly. 

• Keep them in cases in a rack or storage system. 

• Store away from heat. 

• Store away from any magnetic fields such as TV sets, computers, 
loudspeakers, motors, fans and very definitely telephones, all of 
which may damage or erase your program. 

• Don't leave tapes in the deck when they are not required, and do 
not leave the deck switched into 'play' unless the program requires 

it. 

• Remember to break out the plastic tabs at the back of the tape to 
prevent accidental erasure of the program. If ever you wish to re- 
record over a protected tape temporarily cover the tab hole with 
adhesive tape. 

10. Don't spend longer than about three hours in a session. Have a 
break, walk about, have a shower, play a game! 



Other problems 

PARIS 

IN THE 

THE SPRING 

Read the above out loud! You will be surprised to know that most 
people read it as 'Paris in the spring'. Perhaps you did too! However, 
it actually says 'Paris in the the spring'. The word 'the' is printed 
twice, but because it is not expected and because the phrase is 
familiar, the second 'the' is not 'seen' by the mind. 

A similar problem occurs when programs are typed in from 
listings. You often type what you expect to see instead of what is 
printed. This is why the letter O is sometimes typed when it should be 
'zero' (printed as 0), or S is incorrectly typed instead of the dollar 
symbol (printed as $). 

A moment's lapse of concentration can lead to lines becoming 
jumbled as the eye jumps from one line to the next. For example: 

10 PRINT'This is the start" 
20 PRINT'This is next" 
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becomes: 

10 PRINT"This is the next" 

Look at the screen to check that your shifted letters have been 
correctly entered. Failure to do this produces classics such as: 

10 PRINT 2 WHERE ARE THE QUOTESI2 

Under no circumstances should you attempt to alter a program as 
it is entered. If the numbers go: 10,20,30, etc., then enter them like 
that. Changes are best made after a program is known to be working. 
This applies to everything - do not be tempted to miss out lines 
because you think that they may be optional. Otherwise program 
control could attempt to go to a line number that you have changed 
or deleted, and crash the program. 

'REM' statements are remark statements and have been used to 
help you to understand the program. They should be entered as 
printed. Only when a working program has been produced and saved 
should you perhaps produce a copy which has no 'REMs'. This could 
save a little memory, but there is no real benefit to be obtained. 

Spaces are always of vital importance in a computer program. 
Care should be taken to get them right, to enable spaces to be counted 
and entered accurately. Simply align a piece of paper or card with the 
characters above and below, and count as the edge is moved along. 

Please be particularly careful to enter each line as a complete line 
from the line number commands. Confusion could arise when the 
line includes numbers which wrap onto the next line. Do not enter 
these lines separately, or the computer will take it as a line number 
which will cause problems. 

You may find it useful to place a ruler along the line you are up to. 
This will further reduce the risk of errors. 

If you follow all the foregoing then you should not have any great 
problems. However, it is inevitable that some bugs will creep in. If 
your program fails to operate properly then the last chapter contains 
some helpful advice on debugging. 



Important Entry Notes 



Read this first 

Commodore BASIC has long caused problems for those who publish 
listings. This is because it features special symbols to indicate things 
such as 'Clear home' which is a little heart character. 

If we were to use a CBM printer then these symbols would be 
produced, but experience shows that many people have problems 
identifying what is what. 

The programs in this book have therefore been printed using a 
special interface. This interface automatically prints out the special 
characters as easy to understand abbreviations. All such abbrevia- 
tions are contained in between special brackets. These brackets 
indicate that the keys shown should be pressed. 

The special brackets SHOULD NOT be typed in, nor should the 
actual letters which they contain. For example, if you see jCLRJ 
then the Clear Screen key should be pressed. This will show on screen 
as the heart symbol as you enter it. 

The interface also prints out the special graphic characters in a 
more legible form. Once again the special brackets will be printed 
containing either an up arrow for shift or a star for the CBM key 
followed by a letter. For example, if the up arrow is printed with the 
equals symbol then the shift key should be held down whilst the 
equals key is pressed. This will produce a left arrow. If a star or 
asterisk were printed with the equals key then the CBM logo key 
should be held down and equals pressed. This will produce a PI 

symbol. 

Spaces between one set of special brackets and another set should 
be counted carefully by reference to the number of characters above 

and below. 

Examples of the special bracket codes are shown below: 
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PRINTER COOES 

COLOURS 

«BLK>= BLACK=(CTRL+1) 
«WHT>= WHITE=<CTRL+2> 
<BLK5= RED=(CTRL+3) 
<CYN>= CYAN=(CTRL+4) 
<PUR>=PURPLE= tCTRL+5) 
£GRN>= GREEN=(CTRL+6> 
<BLUJ= BLUE=(CTRL+7) 
I YEL >= YELLOW= < CTRL+8 ) 
{ OR >=ORAN6E= < CBM+ 1 ) 
CBRN>=BROWN =(CBM+2) 
<RVS ON>=RVS ON=CCTRL+9> 
CRVS OFF>=RVS OFF=(CTRL+0) 

CONTROL COOES 



€CUR LJ=CRSR LEFT 
CCUR RT>=CURSOR RIGHT 
<CUR UP>=CURSOR UP 
<CUR DN>=CURSOR DOWN 
CHOME>=HOME CURSOR 
CCLR>=CLEAR SCREEN 
0=FLASH ON =CTRL+COMMA 
- =FLASH OFF=CTRL+FULL STOP 

CHARACTER COOES 



<*X>=CBM KEY + KEY INDICATED 
<"X>=SHIFT KEY + KEY SHOWN 

EXAMPLES 



€~->=SHIFT+MINUS KEY 

C**J=CBM KEY+ASTERISK (MULTIPLY) 

Remember that codes will all need to be entered in 'Quotes Mode'. 
This means that the first set of quotes must have been typed so that 
the CBM interpreter will know that a special symbol is required. 

Due to the extensive use of machine code the likelihood of a crash 
is greatly increased. So do remember to save before you RUN. If a 
crash occurs it is sometimes possible to recover without loss of data. 
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The trick is to hold down the RUN /STOP key whilst pressing 
RESET. This will clear to the monitor. Type X [return] and the 
program should still be there. 

If you have any problems refer to the Introduction and to the Final 

Words section. 



Marie Celeste 




An Adventure at Sea 

In this text adventure you find yourself moored alongside the 
legendary ghost ship. 

What is the secret of the Marie Celeste"} Where are the crew? 

By giving commands to the computer you can solve this marine 
mystery. By mixing up the text in the listing, care has been taken not 
to spoil your fun. In this way it is hoped that you will not be able to 
guess the solutions to the puzzles as they are typed in. 

It is usual for adventures to require North, South, East and West as 
directions, but since this one has a nautical setting directions are: 
Forard, Aft, Starboard or Port. In case you do not know, these are 
equal to front of ship, rear of ship, right looking forward and left 
looking forward respectively. 

As you move it is a good idea to draw a map. This map will help 
you to find your way around or identify locations that you have hot i 
yet visited. 

Two-word instructions such as 'Take bucket' are accepted or the 
direction may be shortened to FOR, AFT, STA and POR. Adventures 



Marie Celeste 9 

often require the player to enter :'INVENTORY' to see what is being 
carried. In this adventure the inventory is displayed after each action. 
One of the enjoyable (but often frustrating) aspects of adventures is 
trying lots of different 'verbs' to see if they have any effect! Common 
verbs for adventures are: get, take, down, up, climb and unlock. 
Whilst you are on board, try lots of different ones. Try 'Examine cat' 
at the right time and see what happens. 

Once you have solved the adventure invite others to play it. It is just 
as satisfying watching someone else make the same mistakes and 
perhaps have the same success as you. 

10 REM>>>>>>>MARIE CELESTE< <<<<<<< < 

20 REM>>>>>GREG/ISSI/JIM<<< <<<<<<<< 

30 GOTO 1250 

40 RETURN 

50 PRINT" £CLR> £RED5 " : COLOR0, 1 : C0L0R4, 1 

60 PRINT-CCUR RTXCUR RT> £*Q> i ~*> £*R> C ~*> £ 

~IJ £"U>£~*>£~*>£~I J" 

70 PRINT"f.CUR RTXCUR RT>£~-} £~-} £"-> - 

I"-} £*R> £*RJ" 

80 PRINT" {CUR RT}f.CUR RT>£"-> £"-> £"->£~U 
}{ A #}C A I }{'U}£~*>£~I}£*R>£ A U>£' > *}£'' , I}- C- 
} £ A U>£~*>£' V I>£'"'-}£' > U>£' V *}£~I>£' N U>£''#}£~ 

I}C*Q}{H}{ A U}{ A #}{ A I}" 

90 PRINT"£CUR RTMCUR RT){'-} C-J {» £ 
-VOC-} -£">->£ A -}£"-> £"-} {"-> £?->£" 

-:£~-> {~->c A -} {*-) £"-> {-"-}" 

100 PRINT"£CUR RT>{CUR RT>£"-J £ A -> £~->C A 

U>£~*}£*W>£ A -}£" >£ A }C~->£*Q}£" > #>£-'K> €" 

-} £*Q>£>*>£~K}£~ ->£*Q>£~*>£ ~K}£^J}£~*>£ 

A I>C*->' Ct8}{ A *){ A K}" 

110 PRINT" t CUR RTJCCUR RT}£~-> £"-> £~-J£~ 

-> {"-}{ A -J £"-}£->-> €"-> «"-> C A -> 

£ A -> £ A -M A -)" £ A ->" 

120 PRINT" CCUR RTMCUR RT}£*E> £,*EJ £*E>£~ 

J}£ A *>£"K>£*E> £*EM~JJt' v *>t' % K> £~J>£'*} 

£~*>£ A K> C A J>£~*>£~K>£*ElC v J>{ A *>£ A K>£' > J}£'' 

*>£ A K>£ A J>£ A K>£"J>£' V *>£''K>" 

130 PRINT" £CUR DN> £YEL> ": RETURN 

140 REM >>>>>>>>> INITIALIZE<<<<<<<<<< 

150 DIMD(10,7) 

160 DIMO*(ll) 

170 DIMM (10, 4) 

180 DIMO(ll) 
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190 RE5TORE230 

200 FORN=1TO10 

210 READD(N, 1) , D(N,2) , D (N,3) , D (N,4) 

22.0 READD(N,5) ,D(N,6) ,D (N,7) 

230 READM ( N , 1 ) , M ( N , 2 ) , M < N , 3 ) , M ( N , 4 ) 

240 NEXTN 

250 F0RN=1T011 

260 READO$(N> , O(N) 

270 NEXTN: RETURN 

2S0 DATA1.8, 10, 11,2.3,0,0 

290 DATA0, 0,0,0 

300 DATA12, 36, 23,0,0,0*0 

310 DATA1, 1,0,0 

320 DATA13, 16, 1,29,4,30,20 

330 DATA1,0, 1,0 

340 DATA13, 14,3,23,0,0,0 

350 DATA0, 1,1,0 

360 DATA1, 13,35,3,33,0,0 

370 DATA0, 1,0,0 

380 DATA1, 8, 9, 11,20,0,0 

390 DATA0, 0,0,0 

400 DATA2,30,20, 13, 15,22, 16 

410 DATA1,0, 1, 1 

420 DATA5, 30, 20,0,0,0,0 

430 DATA0.0, 1,0 

440 DATA1,8,34,29,5,0,0 

450 DATAI,0,0, 1 

460 DATA1, 17,27,33,3,30,20 

470 DATA0,0, 1,0 

4S0 DATAKNIFE, 6, TARPAULIN, 1, WATER ON DECK, 

2, ROPE, 6, NOTE, 8, BUCKET, 4 , KEY, 

490 DATACAT,9, MOP, 5, WELLIES , 5 , HOOKS , 

500 REM >>>>>>>>>> INPUT <<<<<<<<<<<<< 

510 PRINT: MS=" " : PRINT" >" ; : INFUTAS 

520 SCUNDi,800,7:M*=M*+AS 

530 RETURN 

540 REM >>>>>>>>> INVENTORY <<<<<<<<<< 

550 PRINT" INVENTORY. " 

560 F0RN=1T011 

570 IF0(N)=13THENPRINT03>(N) 

530 NEXTN: RETURN 

590 REM >>>>>>>>>>> SPLIT <<<<<<<<<<<< 

600 V*= M " : N*= " " 

610 F0RN=1T0LEN(MS) 

620 IFMID¥<MS>,N, 1 >=" "THEN640 
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630 NEXTN : V*=M* : RETURN 

640 V*=LEFT*<MS,N-1> 

650 N*=RIGHT*CM$,LEN(M*) -N> 

660 RETURN 

670 REM >>>>>>>>>> COMMAND <<<<<<«<<< 

6S0 6OSUE510 

690 GOSUB600 

700 C*=LEFT$('v'*,2> 

710 IFC$="PO"THENGO3U31300 

720 IFC*="ST"THENGOSUB1380 

730 IFC*="FC"THENGOSUB1460 

740 IFCS="AF"THENGOSUB1540 

750 I FC*= " GE " ORC3»= " TA " THENGOSUB 1 620 

760 IFCsS="GO"ORC*="EN"THENGOSUB1710 

770 I FC£= " EX " ORC*= "IN" THENGOSUB 1 750 

730 IFC*= " UN " ORC*= " OP " THENGOSUB 1 930 

790 IFC*="CU"THENGOSUB1930 

300 IFC*="CL"THENGOSUB2030 

310 IFCS="KI"THENGQTO2100 

320 JFC*="LO"THENGOSUE2150 

330 I FC*= " Sf * " ORCS= " FU " ORC*= " R A " THENG0SUB22 

30 

340 C-S=LEFT*CV*,3) 

350 I FC*= " SWA " ORC*= " MOP " THENGOSUB2250 

360 I FC5>= " MOV " ORC*= " L I F " THENGOSUB2300 

370 IFV*="GUIT"THENGOTO2350 

330 IFV*="*"THEN900 

390 PRINT"I DON'T UNDERSTAND ..." 

900 603UB 1130: GO3UB550 

910 GOTO680 

920 REM >>>>>>>>>>> START <<<<<<<<<<< 

930 GO3UB1000 

940 6O3UB50 

950 GOSUB40 

960 GOSUB150 

970 GOSUE550 

980 PO=6: RETURN 

990 REM >>>>>>>>>> STRINGS <<<<<<<<<<< 

1000 DIMW*(36> 

1010 RESTORE 1060 

1020 F0RN=1T036 

1030 READW*(N> 

1040 NEXTN 

1050 RETURN 
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DATAI AM .ASTERN , FORARD , PORT , STARE 



1060 

OARD ,UP .DOWN , IN A .SMALL , LARGE 

1070 DATABOAT ALONGSIDE .THERE IS .THE WIN 

D .HOWLS .SINGS 

1080 DATASOUNDS LIKE LAUGHTER. .OUTSIDE ,1 



NSIDE , IT IS 



THE MARIE CELESTE. 



.SLIDE 
,IS 



, ACR03 



DECK. .DEVI 



1090 DATAA .AND .HERE., AND I 

S .LOCKED .UNLOCKED , TO , OF 

1100 DATAI SEE .STORES. 

1110 DATAGAP .THE .WATER ON THE 

L .BERMUDA TRIANGLE .ATLANTIS 

1120 REM ?>>>>>>>> DESCRIBE <<<<<<<<<< 

1130 REM 

1140 IFPO=2ANDO(10)<>13THENPRINT"YOU SLIP 

THROUGH TO THE NEXT DECK ! " 

1150 VOL8.-SOUND2.300, 10 

1160 IFPO=1ANDOC2)=0THEN2410 

1170 F0RN=1T07 

1180 PRINTW*(D(PO,N) ) J 

1190 NEXTN: PRINT 

1200 PRINT" I CAN SEE -" 

1210 F0RN=1T011 

1 220 I FO ( N ) =POTHENPR I NTO* ( N ) ; " , " ; 

1230 NEXTN: PRINT: RETURN 

1240 REM >>>>>>>> BEGIN GAME 

1250 GOSUB930 

1260 NV*="YOU CANNOT GO THAT 

1270 GOSUB1130 

1230 GOTO6S0 

1290 REM >>>>>>>>> COMMANDS 

1300 V*= n #" 

1310 IFM(PC,4) O0THEN1330 

1 320 PR I NTN V* : RETURN 

1330 IFM(PO, 4 >=lTHENP0=P0-5: RETURN 

1340 A=N(P0,4) :A=A-1 

1350 IF0(A)=13THENPRINT"Y0U USE THE M OS(A) 

"AND GOT PORT. " : ELSEGOTO1320 

1360 FORN=1TO3000: NEXTN 

1370 P0=P0-5: RETURN 

1330 V*="#" 

1390 IFM(P0,2) O0THEN1410 

1400 PRINTNVS: RETURN 

1410 IFM(PO, 2) =lTHENP0=P0+5: RETURN 

1420 A=M(P0,2) :A=A-1 



< <<< < <<< 



WAY. 



. \ \ \ \ \ \ \ 
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1430 IF0(A>=13THENPRINT"Y0U USE THE "OS<A> 
"AND GO TO STARBOARD. " : ELSEGOTO1400 
1440 FORN=1TO3000: NEXTN 
1450 PO=PO+5: RETURN 
1460 V*="# M 

1470 IFM(PO, 1) O0THEN1490 
14S0 PRINTNV*:RETURN 

1490 IFMCPO, 1)=1THENP0=P0+1: RETURN 
1500 A=M(PO, 1 ) :A=A-1 

1510 IF0<A>=13THENPRINT"Y0U USE THE "0*<A> 
"AND GO FORARD. " : ELSEGOTO1480 
1 520 FORN= 1 TO3000 : NEXTN 
1530 PO=PO+i: RETURN 
1540 V*="*" 

1550 IFM(P0,3) O0THEN1570 
1560 PRINTNV*:RETURN 

1 570 I FM ( PO , 3 > = 1 THENPO=PO- 1 : RETURN 
1580 A=M(PO, 3) : A=A-1 

1590 IF0(A)=13THENPRINT"Y0U USE THE "0*CA> 
" AND GO AFT. " : ELSEGOTO1560 
1600 FORN=1TO3000: NEXTN 
1610 PO=PO-l: RETURN 
1620 V*="*" 
1£30 FORN=1TO10 
ls40 IFN$=O*(N)THEN1670 
1650 NEXTN 

1660 PRINT"DON*T BE SILLY !": RETURN 
1670 IFN=4THENPRINT"IT3 TIED TOO TIGHTLY F 
OR ME ! ": RETURN 
1680 0(N)=13 

1690 PR I NT "YOU TAKE THE "0*(N) 
1700 RETURN 
1710 V*="*" 

1720 IFN*<> "STORE" ANDN*<> "STORES"THENPRINT 
"YOU CANNOT GO THERE. . .": RETURN 
1730 IFMC10,4)=0THENPRINT"ITS LOCKED ! " : RE 
TURN 

1740 P0=5: RETURN 
1750 V*="*" 
1760 FORN=lTOH 
1770 TFN*=0*(N) THEN 1800 
1780 NEXTN 

1790 PRINT" I DON'T SEE THAT HERE. ": RETURN 
1800 IFN=1THENPRINT"IT'S SHARP !" 
1810 IFN=2THENPRINT"IT'S GREEN !" 
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1820 IFN=3THENPRINT"IT'S WET AND SALTY !" 
1330 IFN=4THENPRINT"IT'S TIED TIGHTLY." 
1840 IFN=5THENPRINT"IT SAYS- ": PRINT" ' NO NE 
ED TO GO EELOW DECKS IN THIS GAME. ' n 
1350 IFN=6ANDO(7)=0THENPRINT"IT'S RATTLING 

! ":OC)=PO 
1860 IFN=6ANDO(7>< >0THENPRINT"IT'S EMPTY ! 

n 

1870 IFN=7THENPRINT"IT SAYS 'STORE'" 

1880 IFN=STHENPRINT"IT RUNS OFF WITH A DEA 

D RAT. ": 0(35=0 

1890 IFN=9THENPRINT"IT*S SOGCjT !" 

1900 IFN=10THENPRINT"THEY*RE SMELLY !" 

1910 IFN=11THENPRINT"THEY SEEM TO BE FOR A 

ROPE ! " 
1920 RETURN 
1<?30 V*="*" 

1940 IFPOO10THENPRINT"I CAN'T . .": RETURN 
1950 IF0C7) <>13THENPRINT"I HAVE NO KEY ! " : 
RETURN 

1960 M(P0,4)=l:PRINT"THE STORE IS OPEN." 
1970 D(10,3)=2S:RETURN 

1930 VS="*" : IFOU) <>13THENPRINT"WITH WHAT 
?": RETURN 

1990 IFN*=O*(4)THEN2010 
2000 PRINT"YOU SADIST !": RETURN 
2010 PRINT"YOU CUT THE ROPE AND TAKE IT." 
2020 0(4) =13: RETURN 

2030 V*="*" : IFN*< >0*(4)THENV*="BI" '.RETURN 
2040 IF0(4) < >POANDO(4) < >13THENPRINT"WHERE ' 
S THE LADDER ?": RETURN 

2050 PRINT"YOU CLIMB THE ROPE LADDER. " 
2060 IFF0=6THENP0=7: 0(4) =7: RETURN 
2070 IFP0=7THENP0=6: 0(4) =6: RETURN 
2080 IFP0=1THENP0=2:0(4)=2:RETURN 
2090 RETURN 

2100 PRINT"AN ALBATROSS FLIES DOWN AND KIL 
LS YOU FOR BEING DESTRUCTIVE" 
2110 PRINT" {CUR DN>YOU ARE DEAD !" 
2120 FORN=1TO5000:NEXTN 
2130 SOUND 1,400, 20 
2140 GOTO2350 
2150 V*="*" 

2160 PRINT" CCUR DN>EXITS ARE ;" 
2170 IFM(PO.l) <>0THENPRINT"FORARD "J 
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2180 IFM(PO,3) <>0THENPRINT"AFT " i 

2190 IFM(F0,2) <>0THENFRINT"STARBOARD " ; 

2200 IFM(FO,4) < >0THENPRINT"PORT. " 

2210 IFMCPO, 1>=0ANDM<PO,2)=0ANDM(PO,3)=0AN 

DM C PO , 4 ) =0THENPR I NT " NONE . " 

2220 PRINT: RETURN 

Z230 VS="*" 

2^40 PRINT"NOT NOW SAILOR !": RETURN 

2250 V*="*": IF0<6) O130R0(9)O13THENPRIMT" 

WITH UHAT YOU FOOL. . .": RETURN 

2263 IFF0O2THENPRINT-N0T HERE YOU IDIOT. 

. - : RETURN 

2270 O<3>=0: PRINT" WELL DONE ! NOW IT IS SA 

FE. ":MC2,3>=5 

2230 D<2,1)=1:D<2,2)=2:D(2,3)=20:D<2,4)=32 

:D(2,5)=2l:D(2,6)=ll:D(2,7)=0 

2290 Ot 11) =2: RETURN 

2300 V*="#" :FORN=1TO10 

2310 IFN*=OSB(N)THEN2330 

2320 NEXTN:PRINT"MOVE WHAT ? ! ?": RETURN 

2330 PRINT-YOU MOVE IT, AND THE WIND BLOWS 

IT AWAY! " 

2340 O<N)=0: RETURN 

2350 PRINT"CCUR DN> CCUR RTMRVS ONJOANOTHE 

R GAME ? {RVS OFF> - " 

2360 GOSUB510 

2370 IFM$= M YES"THENRUN 

23S0 PRINT" CCUR DN>WELL YOU'RE PLAYING ANY 

WAY ! " 

2390 FORN= 1 TO2500 : NEXT 

2400 RUN 

2410 PRINT"SURPRISE !":PRINT"WE HID IN "WS 

(21) ;W*(11) 

2420 PRINTWS(20) "WE THOUGHT YOU WOULD" 

2430 PRINT"NEVER SOLVE THE ADVENTURE ! " : 60 

TO2350 



2 
Please 




A Teaser for Everyone 

This program is not quite what it seems! You may think that you are 
able to guess what the secret of the program is as you enter it, but you 
will still find the game a challenge when you play it. 

The idea is that the on-screen 'teacher' selects a subject and you 
must then give examples which fit the subject. For example, if 'Films' 
was displayed then you might enter 'Please sir, is SUPERMAN one?' 
and teacher may say 'yes' or 'no'! You must try to decide why and then 
enter another example such as 'STAR WARS' to which the reply will 
once again be 'yes' or 'no'! The game continues until you achieve three 
'yes' replies in a row, when it is assumed that you have realised why 
some get a 'yes' and others 'no'. You can cheat, but that most certainly 
would be a shallow victory. 

Later, when you have mastered playing the program, you may 
wish to change the rules or add more subjects, and that may be a 
challenge in itself! 

Invite a friend to list the program, and he may be surprised to find 
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that there is a distinct lack of data, whereupon you may either give 
your own reason or offer the following test of gullability: 

'The program uses an advanced text compacting system based 
upon the mathematical characteristics of letters within English 
words. Thus, careful selection of parameters enables specific target 
answers to be 'tuned' into apparently imprecise test routines.' 

Of course, you will know differently, because you typed in the lines 
which verify the entries! Why then, is a correct answer for the 'Birds' 
category: Sparrow, Chaffinch and Swallow? 

10 REM >>>>> PLEASE SIR <<<<< 

20 REM>>>>>DAVID/ISSI/JIM<<<< 

30 VOL8 

40 GOSUB870 

50 G0=0 

60 GOSUB100 

70 GOSUB360 

80 GOSUB660 

90 REM >>>>> SCREEN <<<<< 

100 COLOR0, i:COLOR4, l: COLOR 1,2,6 :SCNCLR 

110 FORR=0TO24:CHAR1,21,R, "«"->": NEXT 

120 CHAR1,24,1, -GUESS A" 

130 CHAR1,24,9, "TOTAL" 

140 CHAR1,24,17, "GAMES" 

150 Q*=STR*(G0) :CHAR1, 25,19, Q* 

160 CHAR1.0, 13, "PLEASE SIR, IS IT " 

170 PRINT" « HOME X CUR DNXCUR RTXCUR RTX A 
U>{ A *}{ A *}{ A *}{ A #}{ J> *}{ A #}{' > I}* 
180 PRINT" {CUR 
190 PRINT" «CUR 

< A M>" 
200 PRINT "« CUR 
<"NX*YX A MJ" 
210 PRINT"CCUR RTXCUR RTX A J}< A *X A *X "*> 
«"*X A *X A *X A M> C~N>' «*NX A M>" 
220 PRINT"<CUR RTXCUR RTXCUR RTXCUR RT> 
«CUR RTXCUR RTXCUR RTXCUR RTXCUR RTXC 
UR RTX"M> {*Y>€"I> C~N>" 

230 PRINT" € CUR RTXCUR RTXCUR RTXCUR RT> 
<CUR RTXCUR RTXCUR RTXCUR RTXCUR RTXC 
UR RTXCUR RTXCUR RTXCUR RT> i A JX*R> «*H> 

■ 

240 RETURN 
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250 REM >>> YES <<< 

260 CHAR1,4,3," {CUR LJCCUR LMCUR L>{C 

UR L>YES! " 

270 FORN=800TO900STEP5 : SOUND 1 , N , 2 : NEXT 

280 WIN=WIN+1 

290 RETURN 

300 REM >>> NO <<< 

310 CHAR1,4,3," {CUR LMCUR LJ{CUR L>NO 

■ ■ 

320 FORN=900TO800STEP-5 : SOUND1 , N , 2 : NEXT 

330 WIN=0 

340 RETURN 

350 REM >>> START GAME <<< 

360 WIN=0:G0*60+1 

370 S=>INT(RND<1)*20)+1 

380 CHAR1, 32, 1,S*<S) 

390 Q*=STR* ( TR ) : CHAR 1 , 25 , 1 1 , Q* 

400 A=T<S,1> :B=T(S,2) :C=T(S,3) 

410 RETURN 

420 OK=ASC < LEFT* ( A* , 1 ) ) 

430 I F A=2THENOK= ASC ( R I GHT* ( A* , 1 ) ) 

440 I F A=3THENOK= ASC < M I D* < A* , B , 1 ) ) 

450 I F A=4THENOK=l_EN ( A* ) 

460 IFA=5THENOK=SP+B 

470 IFS=2THENOK=ASC ( LEFT* ( R I GHT* ( A* , 2 > , 1 ) ) 

480 RETURN 

490 REM >>>>> INPUT <<<<< 

500 A*="":SP=0 

510 CHAR1.0, 16, " 

520 CHAR1,0, 16, A* 

530 GETW* : I F W*= " - THEN530 

540 IFW*=" "THENSP=SP+l:GOTO580 

550 Z F W*=CHR* (13) THEN600 

560 IFW*=CHR*(20) ANDLEN(A*) >0THENA*=LEFT* < 

A*, LEN ( A*) - 1 ) : GOTO590 

570 IFW*<"A"ORW*>"Z"THEN530 

580 A*=A*+W*: ZFLENtA*) >15THEN500 

590 SOUND 1 , 999 , 5 : G0T05 10 

600 Q=LEN(A*) 

610 IFQ<1OR8>15THEN500 

620 SOUND 1 , 400 , 20 : SOUND 1 , 200 , 20 

630 GOSUB420:RE=OK 

640 RETURN 

650 REM >>>>> LOOP <<<<< 

660 GOSUB500 
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670 IFA*="QUIT"THENRUN 

680 I FRE=CTHENGOSUB260 : ELSEGOSUB3 10 

690 X*=STR*<WIN> :CHAR1, 25,11, X* 

700 IFWIN=3THEN730 

710 6OTO660 

720 REM >>>>> WIN <<<<< 

730 SCNCLR 

740 CHAR 1,11,5," CON6RATULAT I ONS ! " 

750 CHAR1,8,10,"YOU SOLVED THE PUZZLE !" 

760 CHAR1,7, 15, "PRESS "Y* TO PLAY AGAIN." 

770 GET A*: IFA*O"Y"THEN770:ELSE60 

780 REM >>>>> SUBJECTS <<<<< 

790 DATA DOG, ACTOR, STAR, TV PROG, FILM, PLAY, 

SONG 

800 DATA MICRO, COLOUR, FLOWER, TREE, GEM, BOOK 

, SPORT , BEAST , BIRD , PLACE 

810 DATA FISH, NAME, CAR 

820 DATA2, 1,78,1,2,82,3,2,79,5,1,2 

830 DATA1, 1,83,5,0,0,5,5,6,4,1,8 

840 DATA4, 1,4, 2, 1,80, 4, 1,3, 2, 1,68 

850 DATA5, 2, 4, 3, 3, 67, 3, 4, 83, 3, 3, 65 

860 DATA2, 1,82,3,2,65,3,2,65,4, 1,6 

870 RESTORE790 

880 DIMS* (20) 

890 FORN=1TO20 

900 READS* (N) 

910 NEXTN 

920 DIMT(20,3) 

930 FORN=1TO20 

940 READT(N,1) ,T(N,2) ,T(N,3) 

950 NEXTN 

960 RETURN 
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I Accuse 




A Suspicious Listing 

This is a test of deduction which will challenge all budding sleuths. 

You are Inspector Croucher of CID (Computer Investigations 
Department) and are presently undertaking an extensive training 
course. This training is designed to test your courage and endurance. 
The course also tests your intelligence and ability to use the computer 
in criminal detection. Since we cannot cover the courage and 
endurance section in this book, we have included the computer 
deduction test. 

The computer has the ability to generate thousands of different 
permutations from a set of data. In the blink of an eye it will decide on 
the criminal and his corroborative details, together with the 
statements of a witness that will conclusively point out the guilty 
party. You are allowed to ask for only six sets of details. This is done 
by entering the number corresponding to the category on the left of 
the screen. The computer will display them and then display the 
statements of key witnesses. This could be enough to identify the 
correct suspect, if you requested the right data! 
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The number of the suspect that you believe to be the criminal is 
entered and the accuracy of your judgement is reported back. 

This program could well have educational value, but most of all it 
is designed to be different and fun. 

10 REM <<<<<<< I ACCUSE >>>>>>>>> 

20 REM<<<<<<< ISSI/JIM >>>>>>>>. 

30 REM 

40 GOSUB 990 

50 GOSUB 420 

60 GOSUB 570 

70 FOR G»l TO 6 

80 GOSUB 1120 

90 NEXT G 

100 GOSUB 1230 

110 COLOR 1,3, 3: PRINT " YOU MUST NOW ENTER 

THE NUMBER OF THE " 
120 PRINT " SUSPECT YOU CONSIDER TO HAVE C 
OMMITTEO THE CRIME. " 
130 COLOR 1,15, 2: PRINT " THE WITNESS SAID 

THAT ": COLOR 1,5,3 

140 RESTORE 200 
150 FOR N=l TO 10 
160 READ A* 

170 dum=0:for m=i to 4: if w<m)=n then dum= 

1 

180 NEXT M: IF DUM=1 THEN PRINT - THE CRIMI 

NAL "; A*JS*<S,N) 

190 NEXT N 

200 FOR N=l TO 12 

210 READ A, B: SOUND 1,A,B 

220 NEXT NZGOTO 280 

230 DATA WAS A , WAS , WAS ,'S HAIR WAS ,'S 

HAIR WAS , WORE A , " S SHOES WERE a 

240 DATA 'S EYES WERE ,'S NOSE WAS , "HAD A 

m 

250 DATA 100,25,200,25,300,25,400,25 

260 DATA 200,25,300,25,400,25,500,25 

270 DATA 300,25,400,25,500,25,600,25 

280 GETKEY A*: IF A*< " 1 " OR A*>"4" THEN SOU 

ND 2, 7, 25: GOTO 280 

290 CR= VAL ( A* ) : SOUND 1 , 600 , 50 : SOUND 1 , 400 , 

50: SOUND 1,200,50 

300 GOSUB 1230 

310 IF CR=S THEN GOTO 350 
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320 PRINT " YOU'RE PATHETIC, 'INSPECTOR* C 

ROUCHER . NO ! I WILL DEMOTE YOU TO P.C." 

330 PRINT: PRINT: PRINT " IT WAS SUSPECT N 

UMBER "JSJ" !" 

340 GOTO 370 

350 PRINT " CONGRATULATIONS, INSPECTOR CRO 

UCHER ! " 

360 PRINT: PRINT "YOU CORRECTLY DEDUCED THE 

CRIMINAL FROM THE CLUES GIVEN ! " 
370 PRINT: PRINT: PRINT " PRESS 'SPACE* T 
O REPEAT GAME. " 

380 GETKEY A*: IF A«<>" " THEN GOTO 380 
390 SOUND 1,100, 50: GOTO 50 
400 REM >>>>>>>>>> SCREEN <<<<<<<<<< 
410 REM 

420 COLOR 0,1: COLOR 4,1: COLOR 1,3,5 
430 GRAPHIC 0, 1 

440 PRINT "(HOME} SUSPECTS: ■; TAB ( 12) ;" 1 " 5 T 
AB(20) ; "2";TAB<28> ; "3";TAB<36> ; "4" 
450 RESTORE 530: COLOR 1,6,2 
460 PRINT: FOR N=l TO 10 
470 READ A*: PRINT A* 
480 NEXT N 
490 GOSUB 1230 
500 COLOR 1,8, 3: PRINT " CHOOSE YOUR QUESTI 

ON (0-9) " 

510 COLOR 1,4,4 

520 RETURN 

530 DATA 0-SEX, 1-BUILD, 2-HEIGHT, 3-HAIR, 4- * 

'COL,5-ATTIRE 

540 DATA 6-SHOES,7-EYES,8-NOSE,9-SPECIAL 

550 REM >>>>>>>>> SET UP <<<<<<<<<<< 

560 REM 

570 S=INT<RND(1>*4)+1 

580 FOR N=l TO 4 

590 W<N)=0 

600 CHECK-0 

610 A»INT(RND<1)*10)+1 

620 FOR Q«l TO 4 

630 IF W(Q)=A THEN CHECK=1 

640 NEXT Q 

650 IF CHECK=1 THEN GOTO 600 

660 W(N)=A 

670 NEXT N 

680 FOR N=l TO 10 
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690 FOR Q»l TO 4 

700 A«INT<RND<1>*4>+1 

710 S*(Q,N)=L«(N,A) 

720 NEXT 6 

730 NEXT N 

740 N=W(l):GOSUB 770: N=W (3) : GOSUB 770 

750 N=W ( 2 ) : GOSUB 870 : N=W < 4 ) : GOSUB 870 

760 RETURN 

770 A*INT(RND<1>*4>+1 

780 S*fS,N>=L*(N,A> 

790 T-S+2ZIF T>4 THEN T=T-4 

800 S»<T,N)*L*<N, A) 

810 IF AOl THEN B=A-i:ELSE B=4 

820 T=T-2ZIF T<1 THEN T=T+4 

830 S*<T,N)=L*<N,B> 

840 T«T-2:IF T<1 THEN T=T+4 

850 S*(T,N)=L*<N, B) 

860 RETURN 

870 A*INT(RND<1)*4>+1 

880 S*(S,N)=L*(N,A> 

890 IF SOI THEN T=S-i:ELSE T=4 

900 S*<T,N>=L*«N,A> 

910 IF A<>4 THEN B«A+l:ELSE B=l 

920 T*T-l:lF T=0 THEN T=4 

930 S*CT,N)«L*(N,B) 

940 T»T-i:lF T=0 THEN T=4 

950 S*«T f N)-L*<N,B> 

960 RETURN 

970 REM >>>>>>>> INITIALIZE <<<<<<<<< 

980 REM 

990 DIM SS(4,10) 

1000 DIM W<4> 

1010 DIM L*(10,4> 

1020 A=RND < - 1 ) : RESTORE 1270 

1030 FOR N=l TO 10 

1040 FOR M«l TO 4 

1050 READ L*(N,M) 

1060 NEXT M 

1070 NEXT N 

1080 VOL 8 

1090 RETURN 

1100 REM >>>>>>>>> QUESTION <<<<<<<<<< 

1110 REM 

1120 GETKEY A*: IF A*< "0" OR A*>"9" THEN GO 

TO 1120 
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1130 QW=VAI_<A*> 

1140 QW=QW+1 

1150 SOUND 1,600-QW*50,25 

1160 PRINT" €HOME>": FOR N=l TO QW: PRINT: NEX 

T N: SOUND 1,300,25 

1170 FOR PE=1 TO 4 

1180 PRINT TAB«PE*8+1) ;S*(PE,QW) ; 

1190 NEXT PE 

1200 RETURN 

1210 REN >>>>>>>>>> ERASE <<<<<<<<<<< 

1220 REM 

1230 PRINT" <HOME>": FOR N=0 TO 14: PRINT: NEX 

T N 

1240 FOR N=15 TO 22: PRINT " 

":NEXT N 
1250 PRINT" <HOME>": FOR N=0 TO 14: PRINT: NEX 
T N 

1260 RETURN 

1270 DATA MAN, BOY, WOMAN, GIRL 
1280 DATA FAT, THIN, SLIM, STUBBY 
1290 DATA TALL, LARGE, SHORT, STOOPED 
1300 DATA NORMAL, SHORT, CURLY, LONG 
1310 DATA BROWN, BLACK, BLONDE, GINGER 
1320 DATA JEANS, SUIT, JACKET, CLOAK 
1330 DATA PUMPS, BOOTS, SANDLES, CLOGS 
1340 DATA BLUE, BROWN, GREEN, HAZEL 
1350 DATA SMALL, LARGE, BROKEN, BENT 
1360 DATA TATTOO, DAGGER, GUN, MOLE 
1370 RETURN 



4 
Star Trek 




The Program that Goes Boldly On 

There have been versions of Star Trek written for just about every 
computer ever made. This says a lot for its attraction as a game and 
makes this the classic game. 

Now you can turn your CBM into a Federation Star Ship complete 
with scanners and phasers. Your mission is to clear the quadrant 
of the evil Klingons, without using up all your energy or being 
vaporised. 

This version incorporates a zooming star field and 'real time' 
action during encounters with the enemy or when docking with star 
bases. 

There follows an extract from the 32,544 page mega-manual 
entitled: 'How to be Captain of a Star Ship in 4000 easy lessons': 

1 . Keep calm. Remember the most you can lose is: your own life, 
20 billion Galactic Dollars' worth of hardware and the lives of 
everyone in the known universe. 

2. Watch where you are going! Use the ship's eyes to reveal the 
nature of the universe. Pressing 'L' for Long Range Scan(LRS) will 
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display the position of your ship and the whereabouts of the enemy. 
Klingons are represented on the LRS by a circle with an arrow. This 
is the ancient symbol of Mars, the war bringer. 

Star bases are represented by a circle above a cross. This is the 
ancient symbol for Venus, the bringer of love. 

Those sectors which are occupied by both enemy and star bases 
have a square symbol in them. The square is an ancient symbol for a 
square. 

3. See what you can do? Pressing 'S' will activate the short range 
scanners. This indicates the total number of enemy and star bases in 
the present sector. 

4. Keep an eye on your energy. Docking with a star base will give 
you more. To dock press 'D' on your control panel. If there is a star 
base in that sector the docking sequence then requires you to steer 
your ship using left and right controls until the star base rests in the 
centre of your screen. Once docked you will receive extra units to 
the overall ship's energy bank and a special unit boost to your phasers 
and shields. Failure to dock could result in the loss of the base. So 
be careful out there! 

5. Zap em', Cap'nl A Star Fleet Captain has to do what he has to 
do, and that means eliminating the evil menacing Klingons. 

If there are Klingons around, hitting the 'B' key sounds Battle 
Stations and you can start zapping. First get your enemy in the centre 
of the screen using the cursors. When you are ready, stab the space 
bar, sending phaser bolts out to destroy the target. 

If you are not successful quickly you will lose the element of 
surprise and they will start to shoot back, thus draining your shield 
power. Do not give in, keep zapping until the last one is cleared from 
the sector. Then move on to win more battles. 

6. Warp carefully. Movement to any sector is achieved by pressing 
'W followed by a number between 1 and 5. This is equal to the warp 
factor or distance you wish to travel. 

Next the warp direction is required. This is a number between 1 
and 8. Each number corresponds to a point on a compass, starting 
with one at the top and counting clockwise. Note: clocks have been 
retained in stardate 2806 to help Captains steer their Star Ships. 

7. The semi-final frontier. On commencement of mission you can 
select the level. The easy level has only 10 enemies to seek and destroy. 
The average level has 20 and the hard level has 30. 

As each level is completed, news of your success reaches Central 
Klingon Control and a replacement force, increased by 10 each time, 
is sent out to do further battle. The ultimate challenge consists of 200 
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adversaries to wipe out. Are you ready Captain? Then let 
programming commence . . . 

10 REM <<<<<<<<STARTREK>>>>>>>> 

20 REM <<<<<<< DAVID/ ISSI >>>> 

30 POKES 1 , 255 : POKE52 , 55 : POKE55 , 255 : POKE56 , 

55:PRINTCHR*(8) :VOL8:REM LOWER MEMTOP 

40 EN*= "€ HOME }{WHT}{ CUR RTXCUR RT>tCUR RT 

XCUR RTXCUR RTXCUR RTXCUR RTXCUR RTX 

CUR RTXCUR RTXCUR RTXCUR DNXCUR DNXCU 

R DNXCUR DNXCUR DNXCUR DNXCUR DNXCUR 

DNXCUR DNXCUR DNXCUR DNXCUR DNXCUR DN 

XCUR DNXCUR DNXCUR DNXCUR DNXCUR DNX 

CUR DNXCUR DNXCUR DN> " : A*=" «CUR RTXCUR 

RTXCUR RTXCUR RTXCUR RTXCUR RTXCUR RT 

XCUR RTXCUR RTXCUR RT>" 

50 SH*=EN*+A* 

60 PH*=SH*+A* 

70 SE*=EN*+"«CUR DNXCUR DN>" 

80 EM*=SE*+A* 

90 AR*=EM*+A* 

100 COLOR0, 1 : COLOR4, 1 : COLOR 1 , 2: POKE 1344, 

110 PRINT" €CLRXWHT> PLEASE WAIT A MOMENT.. 

m 

120 FORR=0TO29Z RE ADD: POKE 16352+R, D: NEXT: SY 

SI 6352 

130 REM MACINE CODE TO COPY CHARSET FROM R 

OM TO RAM 

140 DAT Al 60,0, 185,0,208, 153,0,56, 185,0,209 

, 153,0,57, 185,0,210, 153,0,58, 185,0,211 

150 DATA153, 0,59, 136,208,229,96 

160 REM POINT TO CHARSET NOW IN RAM 

1 70 POKE65298 , PEEK < 65298 ) AND25 1 : POKE65299 , 

PEEK ( 65299 ) AND30R56 

180 REM DATA FOR SHIP SHAPE 

1 90 FORR=0TO7 : READD : POKE 1 4336+R , D : NEXT 

200 DATA7, 98, 242, 254, 242, 98, 7,0 

210 REM DATA FOR STARS ETC 

220 FORR=0TO39 : READD : POKE 1 4336+27*8+R , D : NE 

XT 

230 FORR=0TO7: READD: POKE 14336+33*8+R, D: NEX 

T 

240 FORR=0TO31 : READD: POKE 14336+35*8+R, D: NE 

XT 

250 DATA, , , , , , ,8 
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260 DATA,, , , , , ,128 
270 DATA, , , , 128, , , 
280 DATA128, ,,,,,, 
290 DATA16, ,,,,,, 
300 DATA1, ,,,,,, 
310 DATA, , ,1, , , , 

320 DATA ,1 

330 DATA15,7, 13,56,198, 198, 198,56 
340 DATA60, 102, 102, 102,60,24,60,24 

350 restore3030 : forr=0to224 : re add : poke 1 587 
2+r,d: next: rem scroll data 

360 DIMS (15, 2) 

370 GOSUB1220 

380 GOSUB1300 

390 GOSUB940 

400 GOSUB580 

410 I FS < SEC , 1 ) >0THENGOSUB2060 

420 GOTO470 

430 PRINT" € HOME XWHTX CUR DNXCUR DNXCUR 

DNXCUR DNXCUR DNXCUR DNXCUR DNXCUR DN 

>-; 

440 f0rr=1t05:print-«cur rt> "spc< 

19)" ":next 

450 print" i cur up x cur up x cur up x cur rt> 

*»####*##« "SPC < 19) "3333333D3": RETURN 

460 PRINT" <HOME> "; :F0RR=1T039: PRINT" " ; : NE 

XT: RETURN 

470 GET A* : I F A*= " " THEN550 

480 IFA*="L"THENGOSUB1470 

490 IFA*="S"THENGOSUB1650 

500 IFA*="W"THENGOSUB1770 

510 IFA*="D"THENGOSUB2130 

520 IFA*»"B"THENGOSUB2510 

530 GOSUB580 

540 IF EMEN=ALIEN THEN810 

550 SYS 15872 

560 IF DEAD=10R ENER <1THEN670 

570 GOTO470 

580 PRINT EN*" €CUR LXCUR LXCUR L>"ENE 

R 

590 PRINT SH*" CCUR LXCUR LXCUR L>"SHI 

E 

600 PRINT PH*" fCUR LXCUR LXCUR L>"PHA 

S 

610 PRINT SE*" <CUR LXCUR LXCUR L>"SEC 
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620 PRINT EM*" CCUR LKCUR LXCUR L>"EME 

N 

630 A»=" N":IFS(SEC,2)«1THENA*=" Y" 

640 PRINT AR*A*"<HOME>" 

650 RETURN 

660 REM >>>>>>>>DEAD< <<<<<<< 

670 PRINT" {CLRXCYNXCUR DNXCUR DNXCUR D 

NXCUR DN>" 

680 PRINTSPC<15) ">BAD LUCK<«CUR DNXCUR DN 

>" 

690 PRINTSPC(8)"THE STARSHIP ENTERPRISE " 

700 PRINT 

710 PRINT" HAS BEEN DESTROYED BY THE KLING 

ONS BUT {CUR DN>" 

720 PRINT" ADMIRAL WELLINGTON HAS DECIDED 

TO GIVE YOUtCUR DN>" 

730 PRINT" JUST ONE MORE CHANCE IF YOU W 

ANT TO tCUR DN>" 

740 PRINTSPC(10)"GET YOUR VENGEANCE !" 

750 PRINTSPCC12) "tCUR DNXCUR DNXCUR DNX 

YEL>ANY "CHR*<130)"KEY"CHR*<132) "TO PLAY" 

760 FORT=1TO2000:NEXT 

770 GETA* 

780 IFA*-""THEN770 

790 GOTO370 

800 REM >>>>>>>> NEXT <<<<<<<< 

810 PRINT" CCLRXYELX CUR DNXCUR DNXCUR D 

NXCUR DN>" 

820 PRINTSPC(8) ">WELL DONE CAPTAIN KIRK<<C 

UR DNXCUR DN>" 

830 PRINT" <GRN> NOW YOU MUST FIGHT A FIERC 

ER GROUP OF € CUR DNXCUR DNX 

840 PRINTSPC(12> " tWHTX < <KLINGONS>>>" 

850 ALIEN-ALIEN+10 

860 PRINTSPC(ll) "CCUR DNXCUR DNXCUR DNX 

CUR DNXWHTJANY "CHR*< 130) "KEY"CHR*< 132) " 

TO PLAY" 

870 FORT** 1TO2000: NEXT 

880 GETA* 

890 IFA***""THEN880 

900 GOTO380 

910 REM <<<<<<<< STARS >>>>>>>> 

920 SYS 15872: RETURN 

930 REM <<<<<<<< SCREEN >>>>>>>> 

940 COLORl,2,5 

950 PRINT" CCLRX CUR DN> "SPC ( 10) " I A U> " ; :FOR 
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R«1T017: PRINT" €~*>"J : NEXT: PRINT" t A I > " 

960 FORR=1TO17:PRINTSPC(10) "< a ->"SPC(17) 'I 

A - J": NEXT 

970 PRINTSPC(10) "< A JX~*X A *X'" > #X A *X~*X 

"*X "*> i "*> i A * J i A *X A *> t "*> t "* J € A * J « ~*> t A * 

X A *X A K>" 

980 PRINTSPC(4) "< "UX ~*> <"*X~*> t A *> «~*X A 

*X A #X~*X~*X*RX''*X''*X''*X A *X~*X'**> 

t A *X A *X A *X*R X A *X A *X~*X A *X A *X ~*X " 

*>€"*> t ~* J € A I>" 

990 PRINTSPC(4) " I — >"SPC(9) "< A ->"SPC(9) "<" 

->"SPC(9) »<^->» 

1000 PRINTSPC<4> »{*QX A *X A *X~*X A *X~*X 

A *> {"*}<"*> €"*> t A + > « A * J < ~*> < ~*> € ~* J t A *> € "* 

> € A *X A *> « ~*> i A + >< A *> < A *> t "*> € ~*> i A *> € "*> t 

"*X A *X A *X*W>" 

1010 PRINTSPC(4) "<~->"SPC(9> "« — >"SPC<9) "< 

A ->"SPC(9) "<"->" 

1020 PRINTSPCC4) "<~JX A *X~*X J "'*X~*X A *X 

A *}{ A *}{"#>{ A *}{#E}{ A *}{ A #}{''*}{ A *}{ A #J{ A * 

X A *X A *X A *X*EX A *X A *X A *X A *X A *X*'*X 

"*X A *X A #X A KXHOME>" 

1030 PRINT"* HOME X CUR DNXCUR DNXCUR DNX 

CUR DNXCUR DNXCUR RTXCUR RTXCUR RTX A U 

> i A *X A *> « A *> t A I > "SPC (23) " i ~U> « A *> { A *> « "*> 

€ A I>" 

1040 PRINT"«CUR RTXCUR RTXCUR RTX — XWH 

TJLRS"; :COLORl,2,5:PRINT"{ — >"SPC(23) "< A -> 

CWHT>SRS"; :COLORl,2,5:PRINT"€"->" 

1050 PRINT" C A UX A *X A *X*EX A *X A *X A *X*E 

X"*X A *X*W>"SPC(17) "<*QX A *X A *X*EX"*> 

t"#X A *X*EX A *X A *X"I>" 

1060 F0RR-1T05: PRINT" € A -> "SPC (37) "< A -}":NE 

XT 

1070 PRINT" i A J > i A *> € A *> € "*> i A *> € A *X A *> < "* 

X"*X"*X*W>"SPC(17) "€*QX A *X"*X~*X~*> 

i A *> € A *X A *X A *X A *X "K> " 

1080 PRINT" CCUR DNXCUR DNXCUR DNXCUR DN 

XCUR DNXCUR ONXCUR DNXCUR RTXCUR RTX 

CUR RTJCCUR RTXCUR RTXBLU>ENERGY€CUR RT> 

£CUR RTKCUR RTXCUR RTXGRNJSHIELDCCUR RT 

XCUR RTXCUR RTXCUR RT> CRED1PHASOR" 

1090 PRINT" i CUR DNXCUR RTXCUR RTXCUR RT 

XCUR RTXCUR RTXBLU>SECTOR<CUR RTXCUR R 

TXCUR RTXCUR RT XGRNJ ENEMY < CUR RTXCUR R 
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TXCUR RTXCUR RTXCUR RTJ < RED >*-BASE< HOME 

>■ 

1100 PRINT " I HOME XWHTX CUR DNXCUR DN>"; 

1110 FORR=0TO7 

1120 PRINTSPC(11)SPC(R) "*"SPC<7-R> "C"SPC<7 

-R) "\" 

1130 NEXT 

1140 PRINTSPC( 11 >"########< CUR RT> 3 1 3 3 3 1 1 3 

M 

1150 FORR<=0TO7 

1160 PRINTSPC(11)SPC(7-R) ■ ! "SPC<R) "_"SPC<R 

\ m jn. m 

1170 NEXT 

1180 PRINTCHR*<153)»<CUR UPXCUR UPXCUR U 

PXCUR UPXCUR UPXCUR UP> "SPC < 17) " i A JX*R 

){«}{*R}( A K}' 

1190 GOSUB580:GOSUB430 

1200 RETURN 

1210 REM <<<<<< <<D1FFICULTY> >>>>>>> 

1220 PRINT" tCLRXYELX CUR DNXCUR DNXCUR 

DNXCUR DNXCUR DNXCUR DNXCUR RTXCUR RT 

XCUR RTXCUR RTXCUR RTXCUR RTXCUR RTX 

CUR RT>HARD EASY AVERAGE ?" 

1230 GETA* 

1240 IFA*="H"THEN AL I EN=20: RETURN 

1250 IFA*«"E"THEN ALIEN" 10: RETURN 

1260 IFA*«"A"THEN ALIEN" 15: RETURN 

1270 GOTO 1230 

1280 print" thomexcur dnxcur dnxcur dnx 
cur dnxcur dnxcur dnxcur dnxcur dn>"j: 
forr=ito5:print"«cur rt> -:next:print- 

«cur upxcur upxcur upxcur rtxwht> ! ! ! ! ! 

« 

1290 <<<<<<<<INITIALISE>>>>>>>> 

1300 forn=itois: s (N, l ) =0: s (N, 2) =0: next 

1310 FORN=lTO ALIEN 

1320 SEC=INT«RND(8>*15)+1 

1330 IFS(SEC, 1) >3THEN1320 

1340 S(SEC, 1)»S(SEC, 1)+1 

1350 NEXT 

1360 F0RN-1T03 

1370 PO=INT(RND(8)*15)+l 

1380 IFS(PO,2>=1THEN1370 

1390 S(PO f 2)=l 

1400 NEXT 
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1410 PHAS=25 : ENER=25 : BAD=0 : SH X E=Z5 
1420 SEC-INT (RND(8)*15)+1 
1430 EMEN=0:DEAD=0 
1 440 SCREEN-3 1 63 : COLOUR=2 1 39 
1450 RETURN 

1460 REM <<<<<<<<LONG SCAN>>>>>>>> 
1470 FORR=0TO20: SOUND 1 , RND (8) *200+800, 1 : NE 
XT 

1480 PO=i: PRINT" { HOME X CUR ONXCUR DNXCUR 
DNXCUR DNXCUR DNXCUR DNXCUR DNXCUR D 
NXCUR DNXCUR DNXCUR RT> {CUR UP 

XCUR UP X CUR UP X CUR UP>"5 

1490 F0RN»1T03:S0UND3, 1010, 10: PRINT" {CUR D 
N>" 

1500 F0RM=1T05:S0UND3, 1020, 2: PRINT" {CUR RT 
>"l 

1510 SYS15872 

1520 IFPO=SECTHENPRINTCHR*(153) "6"; : GOTO 15 
70 

1 530 I FS ( PO , 1 ) >0ANDS C PO , 2 ) « 1 THENPR I NTCHR* ( 
155) "€*+>"! : GOTO 1570 

1540 IFS(PO, 1) >0THENPRINTCHR*(151> "%" J : GOT 
01570 

1550 IFS(PO,2)>lTHENPRINTCHR*(152) "fc"; :GOT 
O1570 

1560 PRINT" "; 
1570 FORR=1TO20:NEXT 

1580 PO=PO+l:NEXTM,N: PRINT" {HOME >" 
1590 FORR=1TO100ZSYS15872:FORT=1TO10:NEXTT 

,R 

1600 GOSUB430 

1610 SOUND3, 1000, 10 

1620 ENER=ENER-5 

1630 RETURN 

1640 REM <<<<<<SHORT RANGE SCAN>>>>>> 

1 650 FORR~0TO20 : SOUND 1 , RND ( 8 ) *200+600 , 1 : NE 

XT 

1660 PRINT "{HOME XCUR DN>{CUR DNXCUR DN>{ 

CUR DNXCUR DNXCUR DNXCUR DNXCUR DNXCU 

R DN>"SPC(31)CHR*(151) "%{WHT> "S (SEC, 1 ) 

1670 SOUNDS, 1010,20 

1680 FORR«1TO400:NEXT 

1690 PRINT: PRINTSPC (31 )CHR*( 152) "fc{WHT>"S( 

SEC, 2) 

1700 SOUND3, 1020,20 




*!,. 
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1710 FORR=1TO50:SYS15872:FORT=1TO10:NEXTT, 

R 4 

1720 GOSUB430 

1730 SOUND3, 1000, 10 

1740 ENER=ENER-5 

1750 RETURN 

1760 <<<<<<< <WARP>>>>>>>> 

1770 PRINT" {HOME){CUR RTXCUR RTXCUR RTX 

CUR RTXYEL) WARP/ DISTANCE FACTOR (1 TO 5) 

?<CUR LXWHTJ"; 

1780 SOUND3, 1015,5 

1790 GET A*: IFA*< - 1 »ORA*>-5"THEN1790: ELSEPR 

I NT A* 

1 800 SOUND3 , 1 005 , 5 

1810 DIS=VA1_(A*> 

1820 GOSUB460 

1830 PRINT" < HONE X CUR RTXCUR RTXCUR RTX 

CUR RTKCUR RTXCUR RTXCUR RTXCUR RTXCY 

N>WARP DIRECTION <1 TO 8) ?<WHTXCUR L>"; 

1840 SOUND3, 1015,5 

1850 GET A*: IFA*<-1"ORA*>"8"THEN1850: ELSEPR 

I NT A* 

1860 SOUND3 , 1005 , 5 

1870 DATA-5, -4, 1,6,5,4, -1,-6 

1880 DR=VAL<A*> 

1890 RESTORE 1870 

1900 FORN=lTODR 

1910 READXY 

1920 NEXT 

1930 FORN=lTODIS 

1940 SEC=SEC+XY 

1950 IFSEC<1 THENSEC=SEC+15 

1960 IFSEC>15THENSEC=SEC-15 

1970 NEXT 

1 980 FORR=*800TO 1 020 : S YS 1 5872 : S YS 1 5872 

1990 SOUND3,R,l 

2000 NEXT 

2010 GOSUB460 

2020 IFS ( SEC , 1 ) >0THENGOSUB2060 

2030 ENER=ENER-INT(DIS*1.5) 

2040 RETURN 

2050 REN <<<<<<<<RED ALERT> >>> > > >> 

2060 PRINT" < HOME X CUR RTM CUR RTXCUR RTX 

CUR RTXCUR RTXCUR RTXCUR RT> i YEL>"CHR*< 

130) -<<<<<<<< «RED>RED ALERTtYELJ >>>>>>>>"C 

JVC 

' 'V : ' 



I 



1 

34 Commodore 16 Games Book 

HR*<132) 

2070 F0RR=1T08 

2080 SOUND 1 , 600 , 8 : S0UND2 , 620 , 8 

2090 FORT=1TO100:NEXTT,R 

2100 GOSUB460 

2110 RETURN 

2120 <<<<<<<<DOCKlNG>>>>>>>> 

2130 IFS(SEC,2)O0THEN2190 

2140 PRINT"* HOME M CUR RTMCUR RTMCUR RTM 

CUR RTMCUR RTMCUR RTMGRN>NO STARBASE IN 

THIS SECTOR" 
2150 SOUND1,300,20:SOUND2,310,20 
2160 SOUND1, 100, 20: SOUND2, 110,20 
2170 FORT=1TO500:NEXT 
2180 GOSUB460: RETURN 
2190 Y=0:X=INT<RND(8)*17) :XX=1 
2200 BS=SC+X+Y*40:BC=BS-1024 
2210 TS=PEEK ( BS ) : TC=PEEK < BC ) 
2220 POKEBS , 38 : POKEBC , 1 25 
2230 GETA*:IFA*="<CUR RT> "THENXX=XX-1 
2240 IFA*="<CUR L> "THENXX=XX+1 

2250 x=x+xx:y=y+i 

2260 IFX<0THENX=0:XX=0 

2270 IFX>16THENX=16:XX=0 

2280 POKEBS , TS : POKEBC , TC 

2290 IFTSO113ANDTSO114THEN2380 

2300 POKEBS , TS : POKEBC , TC 

2310 PRINT- i HOME M CUR RTMCUR RTMCUR RTM 

CUR RTMCUR RTMCUR RTMCUR RTXCUR RTMCU 

R RTMCUR RTMCUR RTMCUR RTMCUR RTMWHT> 

>>>DOCKING<<<" 

2320 ENER=75:PHAS=75:SHIE=75 

2330 FORR= 1 T08 : VOLR : SOUND3 , 400 , 5 

2340 NEXT 

2350 FORR=8TO 1 STEP - 1 : VOLR : SOUND3 , 400 , 5 

2360 NEXT 

2370 VOLS: SOUN03, 1010, 20: GOSUB460: RETURN 

2380 IFYO13THEN2430 

2390 POKEBS , TS : POKEBC , TC 

2400 PRINT- I HOME > {CUR RTMCUR RTMCUR RTM 

CUR RTMCUR RTMCUR RTMCUR RTMCUR RTMCU 

R RTMWHTJ STARBASE OUT OF RANGE" 

2410 FORR=600TO1020STEP10: SOUND3, R, 2: NEXT 

2420 GOSUB460: RETURN 

2430 IFTS< >74ANDTS< >75THEN2480 
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2440 POKEBS, TS : POKEBC , TC 

2450 PRINT" CHOMEX CUR RTMCUR RT>€CUR RT>{ 
CUR RTMCIfR RT>«RED><<< THE STARBASE IS DE 
STROYED >;*>" 

2460 FORRt!*1020TO600STEP- 10: SOUND3 , R , 2 : NEXT 
2470 GOSUB460 : 8 ( SEC , 2 ) «0 : RETURN 
2480 GOSUiB920: SOUND 1 , 1000, 1 : S0UND2, 1001 , 1 : 
FORT= 1 TO2l»0 : NEXT 
2490 GOTO;i200 

2500 REM $>>>>>>>BATTLE<<<<<<<< 
2510 PRIN1P" { HOME >{ CUR RTKCUR RTMCUR RT>{ 
CUR RT>CC14R RTMCUR RT>{CUR RT> CWHT> "CHR*< 
130) " > > > > XpATTLE STATIONS<<<<<"CHR*<132) 
2520 FORRRf" 1 T04 : FORR=400TO600STEP20 : SOUND 1 
,R,2:SOUNM2,R+10,Z:NEXTR,RR 
2530 I FS ( ^EC , 1 X >0THEN2570 

2540 GOSUBJ460: PRINT" {HOME J {CUR RTKCUR RT> 
{CUR RTMQUR RT>{CUR RT>{CUR RT>{CUR RT}{C 
UR RT>{CU« RT>{CUR RT>{CUR RT>{CUR RTJ{CUR 
RTMCUR RpT>{YEL>"CHR*( 130) "SECTOR CLEAR"C 
HR*(132) 

2550 FORR-»i. T04 : SOUND 1 , 1000 , 2 : FORT- 1 TO200 : N 
EXTT,R 

2560 GOSUB 460: RETURN 
2570 X-<INr<RND(8)*15)+l)ORl:Y=(INT(RND<8) 

*15)+dori ;xx«=i:yy=-i 

2580 bs-sc vx+y*40:bc=bs-1024 

2590 ts-pei :k ( bs ) : tc=peek ( bc ) 

2600 POKES > f 37 : POKEBC , 1 23 

2610 GOSUB '20 

2620 GETA»*IFPHAS>0ANDA*=" "THENGOSUB2810 

2630 IFKIL»1THENS(SEC, 1)=S(SEC, 1) -l:KIL=0: 

GOTO2520 

2640 IFA»-f «CUR L>"THENXX=1 

2650 IFA«-*<CUR RT> "THENXX=-1 

2660 IFA*-jf{CUR DN>"THENYY=1 

2670 IFA»«JP€CUR UP> "THENYY=-1 

2680 IFX«0|?HENXX=1 

2690 IFX«1|$THENXX=-1 

2700 IFY-0JTHENYY-1 

2710 IFY-ljjf»THENYY=-l 

2720 x»x+x|c:y-y+yy 

2730 IFRN»||8)<.9THEN2780 

2740 COI_OR|P t 3,2:SOUND3,500,10:COLOR0,l,0 

2750 S^ft*|«tE-l:IFSHIE>-lTHEN2780 
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2760 DEAD=1 
2770 PRINT" < HOME XWHTX CUR RTXCUlt RTXCUR 
RTXCUR RTXCUR RTXCUR RT> >>>>>f >>SHIELD 
S OUT< <<<<<<<-: FORT= 1 TO 1000: NEXT: RETURN 
2780 GOSUB580 H 

2790 FORT= 1 TO40 : NEXT : POKEBS , TS : POIfJEBC , TC : G 
OTO2S80 I 

2800 REM <<<FIRE>>> !jj 

2810 M1=3804:M2=M1 + 14 lfj 

2820 FORR=0TO6 | 

2830 C1=M1-1024:C2=M2-1024 f 
2840 P-PEEK (Ml > : IFP< >32THEN2860 J 
2850 POKEMl,78:POKECl,95 i'l 

2860 P«PEEK(M2) : IFPO32THEN2880 { 
2870 POKEM2,77:POKEC2,95 J 

2880 SOUND3,900+R*10,2 -if 

2890 M1>M1-39:M2*M2-41 
2900 NEXT 

2910 M1=3804:M2=M1+14 
2920 FORR«0TO6 t 

2930 P=PEEK (Ml ) : IFP< >78THEN2950 
2940 POKEMl,32 ' 

2950 P*PEEK (M2) : IFP< >77THEN2970 
2960 POKEM2 v 32 

2970 M1=M1-39:M2=M2-41 ' 

2980 NEXT 
2990 PHAS-PHAS-1 

3000 IFX=8ANDY=8THENEMEN=EMEN+1 : HL«=1 : POKE 
BS,32:COLOR0,2, 7 

3010 SOUND3,950,20:COLOR0,1,0 
3020 RETURN r : 

3030 DATA173,216,56, 168, 162,0,23$,, 189,216, 
56,202, 157, 216, 56, 232, 224, 7, 208, 2J43 
3040 DATA 152, 141 , 223, 56, 173, 224, 36, 168, 162 
,0,232, 189, 224, 56, 202, 157, 224, 56 I 
3050 DAT A232, 224, 7, 208, 243, 152, l4l , 231 , 56, 
162,7,189,224,56,74, 144,2,9,128 ' 
3060 DATA157,224,56,202, 16,242,1^3,236 
3070 DATA56,74, 144,2,9, 128, 141,236,56, 173, 
247,56,168,162,7,202,189,240 If 
3080 DATA56, 232, 157,240,56,202,234,0,208,2 
43,152,141,240,56,162,7,189,240 % 
3090 DATA56, 74, 144, 2, 9, 128, 157, 2f0, 56, 202, 



16,242, 173,255,56, 168,162 



j j 



3100 DATA 7,202, 189, 248, 56, £32, 117,248,56, 



.'■KL»i 
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202,224 

3110 DATA0,208,243, 152, 141,248,56, 173, 15,5 

7, 168, 162, 7, 202, 189, 8, 57, 232 

3120 DATA157,8,57,202,224,0,208,243,152,14 

1,8,57,162,7,189,8,57,10,144 

3130 DATA2, 9, 1,157, 8, 57, 202, 16, 242, 173, 27, 

57,10,144,2,9,1,141,27,57,173,32 

3140 DAT A57, 168, 162,0,232 

3150 DATA189, 32, 57, 202, 157, 32, 57, 232, 224, 7 

,208,243,152,141,39,57,162,7 

3160 DATA 189, 32, 57, 10, 144, 2, 9, 1 , 157, 32, 57, 

202,16,242,96 



Rainbow Breakout 




An Arcade Classic 

This second program classic has great attraction for players of all 
ages. It is one of the shorter programs in the book and so may be a 
good first attempt for those new to programming. 

At the start you are asked to select a large or small bat, then the 
game begins. The object of the game is to eliminate all the blocks by 
hitting them with the ball. Your bat is moved left or right using the 
cursor pad or joystick. It must be moved in advance to anticipate the 
path of the ball as it bounces back from the blocks. 

If you lose a ball then there are three supplied before the game 
restarts. The score is shown and can reach very high levels in the 
hands of a skilful player. 
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10 REM <<<<< RAINBOW I SSI /GREG >>>>>>>>>> 

20 FORN=0TO5 1 : RE AD A : POKE828 +N , A : NEXT 

30 DATA24, 166,209,164,208,32,240,255,96, 16 

9,0,133,210,169,12, 133,211,32,60,3 

40 DATA152,240,8, 169,40,32,100,3, 136,208,2 

48,138,32, 100,3, 177,210,133,215,96 

50 DATA24, 101 , 210, 133,210, 165,211 , 105,0, 13 

3,211,96 

60 SC=0:t_I=5:VOL8 

70 PRINT" <CLRXGY 3>" 

80 POKE208 ,12: POKE209 ,10: S YS828 : I NPUT " L ARG 

E/ SMALL -J A* 

90 S*="":LM=38 

100 IFLEFT*(A*, 1)=-L-THENS*="€*Y>€*Y>-:LM= 

36 

110 GOSUB250 

120 CO=0 

130 X=l 

140 GOSUB360 

150 B=23 

160 N=RND(1) 

170 IFN>.05THENC=l:ELSEC=0 

180 C=C+tINT(RND(l>*10>+5> 

190 BD=-l:AD=-l 

200 GOSUB310 

210 GOSUB480 

220 IFCO>300THEN110 

230 GOTO200 

240 REM >>>>>>>>>> SCREEN <<<<<<<<<<<< 

250 RESTORE280: PRINT" <CLR> " :COLOR0, 1 : COLOR 

4,1 

260 FORN= 1 TO 1 : RE ADZ : FORM=0TO38 : POKE208 , M : 

POKE209,N:SYS828:PRINTCHR*<Z) "«~Q>" 

270 NEXT: NEXT 

280 DATA28, 28, 30, 30, 31, 31, 156, 156, 159, 159 

290 RETURN 

300 REM >>>>>>>>> MOVEMENT <<<<<<<<<<< 

310 GOSUB760 

320 I FLE- 1 ANDX >0THENGOSUB390 : X=X - 1 : GOSUB36 



330 I FR I » 1 ANDX < LMTHENGOSUB390 : X=X + 1 : GOSUB3 

60 

340 RETURN 
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350 REM * * * DRAW * * * 

360 POKE208 , X : POKE209 , 23 : SYS828 : PR I NT " € a O > 

"S*"<~P»"» 

370 RETURN 

380 REM * * * RUB * * * 

390 POKE208, X:POKE209, 23: SYS828: PRINT" "i 

400 IFS*<>""THENPRINT" "; 

410 RETURN 

420 REM >>>>>>>>> DRAW BALL <<<<<<<<<< 

430 PRINT" <WHT>-J 

440 POKE208 , C : POKE209 , B : S YS828 :PRINT"C A W>" 

; : RETURN 

4S0 REM >>>>>>>>>> RUB BALL <<<<<<<<<< 

460 POKE208, C : POKE209, B: SYS828: PRINT" " ; : R 

ETURN 

470 REM >>>>>>>> MOVE BALL <<<<<<<<<<< 

480 6OSUB460: A2=C:B2=B 

490 A2=A2+AD:B2=B2+BD 

500 I FA2< 0THENA2=0 : AD« 1 : SOUND2 , 500 , 1 5 

510 IFA2»39THENA2=38: AD=-l:SOUND2, 500, 15 

520 I FB2= 1 THENBX= 1 : SOUND2 , 600 ,10: GOTO580 

530 IFB2«23THEN620 

540 POKE208 , B2 : POKE209 , A2 : S YS837 : CH=PEEK ( 2 

15) 

550 IFCHO81THEN570 

560 POKE208,A2:POKE209,B2:SYS828:PRINT" "; 

570 IFCH*81THENSOUND2, 600, 5: SCsSC+10: BX=-B 

d : co=co+ i : elsebx=bd 

580 C=C+AD:B=B+BD 

590 BO«BX 

600 GOSUB430 

610 RETURN 

620 POKE208 , 23 : POKE209 , A2 : SYS837 : CH=PEEK ( 2 

15) : IFCH-32THEN670 

630 BD=-1 

640 N=RND(1) : IFN>0.5ANDX<36THENC=C+1 

650 SOUND2, 100, 15 

660 RETURN 

670 GOSUB390:LI=LI-1 

680 SOUND 1,75, 15 

690 IFLI>0THEN130 

700 PR I NT " < CLR > " : POKE208 ,12: POKE209 , 9 : S YS8 

28: PRINT-CONGRATULATIONS !" 

710 PRINTTAB(14) "CCUR DNXLT RED > YOU SCORE 

D : " 
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720 PRINTTABC14) "«CUR DN>"SC" POINTS !" 
730 PR I NTT AB < 1 1 ) " C CUR DN > O « OR > ANOTHER GAME 

? <Y/N>" 
740 6ETKEYA»:IFA»-"Y"THEN60 
750 GOTO740 

760 LE=0:RI~0:KS«PEEK<198> 
770 IFKS=48THENI_E=1 
780 IFKS=51THENRI*1 
790 RETURN 



Maze Maniac 




A Game with Perspective 

This third classic is a 3D maze game in which you have a perspective 
view of the paths open to you. 

The object of the game is to find your way around the maze 
quickly. If you do it fast enough then you will catch the maniac. If you 
are too slow then he will catch you\ 

On screen are shown the passages that are open to you. The pointer 
at the bottom indicates the true direction that you are facing and how 
far you have travelled towards the exit at bottom right. 

The left or right cursor changes the direction you are facing. The up 
cursor takes one step into the picture each time it is pressed. The 
down cursor takes you back one step and leaves you facing the same 
direction. 

Once you are successful in reaching the end of the maze then the 
target time is reduced and the best time must be beaten. 

This game uses machine code to achieve the very fast changes to 
the picture. 
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10 REM >>>>>> MAZE MANIAC «{*I}<«««_« 

20 POKE52 , 60 : POKE54 , 60 : POKE56 , 60 

30 POKE5 1 , 255 : POKE53 , 255 : POKE55 , 255 : CLR 

40 SM=8:S0=SM-l: VOL 8 

50 DIM M(S0,S0) ,MT(S0,S0) 

60 GOSUB 960ITG*="001500" 

70 GOSUB 850:X=0: Y=0:SP=1 

80 GOSUB 180: TI*= "000000" 

90 SOUND 2, 400, 4: GOTO 470 

100 GET I*: IF 1*="" THEN 260 

110 IP»ASC(I*):SOUND 2,800,4 

120 IF IP*145 AND Y<S0 THEN IF M<X,Y+1)>0 

THEN Y=Y+l: GOSUB 180 

130 IF IP=17 AND Y>0 THEN IF M(X,Y-1)>0 TH 

EN Y=Y-l: GOSUB 180 

140 IF IP=29 THEN SP=(SP+1) AND 3: GOSUB 18 

0: GOSUB 340 

150 IF IP=157 THEN SP=(SP-1) AND 3: GOSUB 1 

80: GOSUB 390 

160 GOTO 90 

170 REM >>>>>>> DIRECTION ARROW <<<<<< 

180 CHAR1,20,22,CHR*(32) : CHAR1 , 21 , 23, CHR*< 

32) :CHAR1,20,24,CHR*<32) 

190 CHAR1, 19,23,CHR*<32) :COLORl,2 

200 ON SP GOTO 220,230,240 

210 CHAR 1,20, 22, CHR*( 98 ): RETURN 

220 CHAR 1,21, 23, CHR*( 99 ): RETURN 

230 CHAR 1,20, 24, CHR* < 98 ): RETURN 

240 CHAR1, 19,23, CHR*< 99) : RETURN 

250 REM >>>>>> TIMER <<<<<<<<<<<<<<<<< 

260 COLORl,6,6:CHARl,32,24,TI* 

270 IF TI*<TG* THEN 100 

280 SCNCLR: COLOR 1,2 

290 CHAR1,4,11, "THE MAZE MANIAC HAS CAUGHT 

YOU FROM" 
300 CHAR1,4, 13, "BEHIND. YOU WERE MUCH TOO 
SLOW" 

310 GOTO 830 
320 RETURN 

330 REM >>>>>>>>> TURN RITE <<<<<<<<<<< 
340 FOR 1=0 TO S0:FOR J=0 TO S0 
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350 MT<J,I>»M<I,S0-J> 
360 NEXT J , I 

370 zz=x:x=y:y=zz:x-S0-x:goto 430 

380 REM >>>>>>>>>> TURN LEFT <<<<<<<<<< 

390 :FOR 1-0 TO S0:FOR J=*0 TO S0 

400 MT<J,S0-I)»M<I,J> 

410 NEXT J, I 

420 zz=x:x=y:y=zz:y=*s0-y 

430 for 1=0 to s0:for 3=0 to s0 

440 M<J,I)=MT(J,I) 

450 NEXT J , I : RETURN 

460 REM >>>>>>> GENERATE VIEW <<<<<<<<<< 

470 for w«2 to step-1 : v~y+3-w 

480 if v=sm then gosub 600:k=w:w=0 

490 if v<sm then if m<x,v>«0 then gosub 60 

0:k=w:w=0 

500 NEXT W: O=0: IF Y<S0 THEN IF M<X,Y+1>=2 

THEN 780 

510 IF X=S0 THEN FOR D=3 TO 1+K STEP -l:OC 

=0: GOSUB 700: NEXT D:GOTO 550 

520 V»0:FOR D=3 TO 1+K STEP -l:OC=0 

530 IF M(X+1,Y+V>>0 THEN OC=l 

540 GOSUB 700: V-V+l: NEXT D 

550 IF X=0 THEN FOR D»6 TO 4+K STEP -l:OC= 

0: GOSUB 700: NEXT B:GOTO 580 

560 V=0:FOR D*6 TO 4+K STEP -1:OC=0:IF M(X 

-1,Y+V)>0 THEN OC-1 

570 GOSUB 700: V=V+l: NEXT D 

580 GOTO 100 

590 REM >>>>>>>> SET WALL <<<<<<<<<<<<< 

600 ON W GOTO 620,630 

610 SYS 15646: GOTO 640 

620 SYS 15624: SYS 15650: GOTO 650 

630 SYS 15616: GOTO 660 

640 SYS 16128: SYS 16023 

650 SYS 16092: SYS 15989 

660 SYS 16056: SYS 15955 

670 RETURN 

680 RETURN 

690 REM >>>>>>>> SET DOOR <<<<<<<<<<<<< 

700 ON D GOTO 710,720,730,740,750,760 

710 IF OC THEN SYS 1 6207 : RETURN : ELSE SYS 1 

6 128: RETURN 

720 IF OC THEN SYS 16189: RETURN: ELSE SYS 1 

6092: RETURN 
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730 IF OC THEN SYS 16074: RETURN: ELSE SYS 1 

6056: RETURN 

740 IF OC THEN SYS 16251 : RETURN: ELSE SYS 1 

6023: RETURN 

750 IF OC THEN SYS 16006: RETURN: ELSE SYS 1 

5989: RETURN 

760 IF OC THEN SYS 15972: RETURN: ELSE SYS 1 

5955: RETURN 

770 REN >>>>>>>>> OUT <<<<<<<<<<<<<<<<< 

780 SCNCLR:COLORl,2 

790 CHAR 1,4, 11, "WELL DONE YOU HAVE ESCAPED 

THE" 
800 CHAR1,4, 13, "MAZE MANIAC THIS TIME 

K 

810 CHAR1,4,15, "YOU TIME WAS "+TI* 

820 TG*=TI* 

830 FOR 1=1 TO 5000: NEXT I : GOTO 60 

840 REM >>>>>>> DRAW SCREEN <<<<<<<<<<< 

850 RESTORE 1360 

860 FOR 1=0 TO S0:FOR J=0 TO S0 

870 READ M ( I , J ) : NEXT J , I 

880 COLOR 4,1: COLOR 0,1: COLOR 1,3,6 

390 SCNCLR:SYS 16225: SYS 16056: SYS 15955 

900 COLORl,2:CHARl,2,24, "TARGET: " 

910 CH AR 1,24, 24, "ELAPSED: " 

920 COLORl,6,6:CHARl,9,24,TG* 

930 COLOR1,5,6:CHAR1,20,23,CHR*<209) 

940 RETURN 

950 REM >>>>>>>> INITIALISE <<<<<<<<<<< 

960 RESTORE: AD«= 156 16 

970 READ D:IF D<0 THEN RETURN 

980 POKE AD,D:AD=AD+l:GOTO 970 

990 REM >>>>>>> PROGRAM DATA <<<<<<<<<< 

1000 REM 

1010 DATA 169,163,160,12,162,17,208,6,169, 

27, 160, 13,162,11,133,220,132,221,169 

1020 DATA 160,160,32,145,220,136,208,251,7 

6,37,63, 162,5,208,2, 162,3, 169, 164, 160 

1030 DATA 12,133,220,132,221,169,36,160,15 

, 133, 222, 132, 223, 160, 30, 169, 32, 132,224 

1040 DATA 145,220,145,222,136,208,249,24,1 

65, 220, 105, 41 , 133, 220, 165, 221 , 105,0 

1050 DATA 133,221,56,165,222,233,39,133,22 

2, 165,223,233,0, 133,223, 164,224, 136, 136 

1060 DATA 202,208,212,96,24,165,220,105,40 
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, 133, 220, 165, 221 , 105,0, 133, 221 , 96, 165 
1070 DATA 222,145,220,200,196,224,208,249, 
165,223,145,220,32,99,61,230,224,160,0 
1080 DATA 202,208,233,96,165,222,145,220,2 
00, 196, 224, 208, 249, 165, 223, 145, 220, 32 
1090 DATA 47,63,230,224,160,0,202,208,233, 
96,165,222,145,220,136,196,224,208,247 
1100 DATA 165,223,145,220,32,99,61,198,224 
,160,4,202,208,233,96,165,222,145,220 
1110 DATA 136,196,224,208,247,165,223,145, 
220,32,47,63, 198,224, 160,4,202,208,233 
1120 DATA 96,160,0,132,224,240,163,160,0,1 
32,224,240, 181, 138, 168, 134,224,208, 199 
1130 DATA 138,168,234,234,134,224,208,215, 
133, 222, 132, 223, 208, 224, 133, 222, 132, 223 
1140 DATA 208,224,133,222,132,223,208,224, 
133,222,132,223,208,224,133,220,132,221 
1150 DATA 169,160,160,223,208,222,133,220, 
132,221,169,32,160,32,208,212,133,220 
1160 DATA 132,221,169,160,160,105,208,208, 
133,220,132,221, 169,32,160,32,208,198 
1170 DATA 133,220,132,221,169,160,160,233, 
208, 194, 133,220,132,221,169,32,160,32 
1180 DATA 208,184,133,220,132,221,169,160, 
160, 95, 208, 180, 133, 220, 132, 221 , 169, 32 
1190 DATA 160,32,208,170,169,0,160,12,162, 
4,32,3,62, 169, 192, 160, 15, 162,4,208, 179 
1200 DATA 169,0,160,12,162,4,32,13,62,169, 
192, 160, 15, 162,4,208, 172, 169, 164, 160 
1210 DATA 12,162,3,32,3,62,169,36,160,15,1 
62,3,208, 145, 169, 164, 160, 12, 162,3,32, 13 
1220 DATA 62,169,36,160,15,162,3,208,138,1 
69,31, 160, 13, 162,2,32,3,62, 169, 175, 160 
1230 DATA 14,162,2,208,186,169,31,160,13,3 
2,13,62,169,175,160,14,162,2,76,33,62 
1240 DATA 169,35,160,12,162,4,32,43,62,169 
,227, 160, 15, 162,4,76,63,62, 169,35,160 
1250 DATA 12,162,4,32,53,62,169,227,160,15 
, 162,4,76,73,62, 169, 192, 160, 12, 162,3 
1260 DATA 32,43,62,169,64,160,15,162,3,76, 
63,62, 169, 192, 160, 12, 162,3,32,53,62,169 
1270 DATA 64,160,15,162,3,76,73,62,169,54, 
160,13, 162,2,32,43,62,169, 198,160,14 
1280 DATA 162,2,76,63,62,169,54,160,13,162 
,2,32,53,62,169,198,160,14,162,2,76,73 
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1290 DATA 62,234,32,99,61,202,208,1,96,76, 

18,61, 56, 165, 220, 233, 40, 133, 220, 165, 221 

1300 DATA 233,0,133,221,96,32,238,62,169,1 

60,141,236,12,141,20,13,141,244,14,141 

1310 DATA 28,15,96,32,18,63,169,160,141,97 

, 13, 141,98, 13, 141, 161, 14, 141, 162, 14 

1320 DATA 96,169,159,162,12,133,220,134,22 

1 , 162, 17, 169, 160, 160,40, 145,220, 136,208 

1330 DATA 251,32,99,61,202,208,241,96,162, 

2,76,168,62 

1340 DATA -1 

1350 REM 

1360 DATA 1,1,1,0,1,1,1,0 

1370 DATA 1,0,1,1,1,0,1,1 

1380 DATA 1,1,0,0,1,1,0,0 

1390 DATA 0,1,1,1,0,1,1,1 

1400 DATA 1,1,0,1,1,1,0,1 

1410 DATA 1,0,1,0,1,0,1,1 

1420 DATA 1,1,1,0,1,1,1,0 

1430 DATA 0,1,0,0,0,0,1,2 
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Computer Moderated Micro Draughts 

The idea is very simple - you must get rid of all your opponent's 
pieces, by jumping over them. To jump over a piece there has to be an 
empty space on the other side. 

At the start you can only move in one direction; that is, up the 
board if you are White or down if you are Black. To move a piece the 
letter for its column and the number for the row is entered. Next the 
destination square is given in the same way. 

If it is not possible to jump over a piece then any one of your own 
draughts is advanced by one square to another square of the same 
colour. If a piece reaches the other side then it becomes a 'king' or 
'crowner'. This means that it can move up and down the board and so 
is more powerful. 

The fact that you have to take a piece when possible does not apply 
according to some sets of rules. Some authorities require that should 
an opponent's piece not be taken when possible, then the offender 
loses that piece. This is known as 'huffing'. 

In this micro version the program will not accept an instruction 
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which simply moves a piece when there is a jump move available. The 
indicator will continue to show the same colour player until the jump 
sequence is complete. 

A game can be saved to tape at any stage by pressing S. A 
previously saved game is loaded at any time by L. During a game or 
after loading, the step mode can be selected by pressing [shift] 3. 
Pressing 'Space' will then step through from the beginning. Pressing 
[shift] 3 will end step mode and allow the game to be played on from 
that position. 

10 REM <<<<<<< DRAUGHTS <> ISSI >>>>>>>> 

20 REM 

30 GOSUB 420 

40 FOR N=l TO 100:Z*<N, 1)="00-:Z*(N,2)= M 00 

" : NEXT 

50 GOSUB 290: GOSUB 680 

60 COUNTS 1 

70 GOSUB 1630: GOTO 70 

80 GAM=0:FOR N=l TO 8: FOR M=l TO 8 

90 IF M*(N,M)="B- OR M*<N,M)="D" THEN GAM= 

1 

100 NEXT: NEXT 

110 IF GAM=0 THEN GOTO 180: ELSE GAM=0 

120 FOR N=l TO 8: FOR M=l TO 8 

130 IF M*<N,M)="A" OR M*<N,M)="C" THEN GAM 

= 1 

140 NEXT: NEXT 

150 IF GAM=0 THEN GOTO 220: ELSE RETURN 

160 REM >>>>>>>>>> BLACK WIN <<<<<<<<<< 

170 REM 

180 GRAPHIC 0,1: COLOR 1,4, 3: CHAR 1,15,5,"B 

LACK WON ! " 

190 GOTO 230 

200 REM >>>>>>>>>> WHITE WIN <<<<<<<<<< 

210 REM 

220 GRAPHIC 0,1: COLOR 1,4, 3: CHAR 1,15,5,"W 

HITE WON ! - 

230 COLOR 1,3, 3: CHAR 1,5, 12, "DO YOU WANT A 

REPLAY (Y/N) ?" 
240 FOR N=l TO 3: SOUND1 , 200, 15: SOUND1 , 300, 
15: SOUND1 , 400, 15: NEXT: SOUND 1 , 300, 25 
250 GETKEY A*: IF A*="Y" THEN GOSUB 1940: GO 
TO 50 

260 IF A*="N- THEN GOTO 50: ELSE GOTO 250 
270 REM >>>>>>>>>> SCREEN <<<<<<<<<<< 



CRVS 


OFF> 


CRVS 


ON 


€RVS 


OFF> 


CRVS 


ON 


A*: PRINT A*: 


[PRINT B 
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280 REM 
290 GOSUB 680 

300 COLOR 0,14,0: COLOR 4, 15, 2: COLOR 1,14,4 
: GRAPHIC 0: GRAPHIC CLR 

310 PRINT "CCLRMCUR DN> C A U> C A C> C A C> C A C> 
{ A C}{ A C}{"C}{ A C}{ A C>{ A C>{ A C}{ A C}{ A C}{''C}{ A 
C>t A CX A C>€ A I>" 
bacvv*^_320 A*=" <"-> CRVS ON> CRVS OFF> CRVS 
ON} CRVS OFF} CRVS ON> CRVS OFF> CRVS 
ON> CRVS OFF>C A ->" 
330 B*«" C->CRVS ON> 
> CRVS OFF} CRVS ON} 
} CRVS OFF} C A -}" 
340 FOR N-l TO 4: PRINT 

*: print b*:next n 

350 print " c a j}c a c}c a c}c a c}c a c}c a c}c a c}c 

a c } c a c } c ~c } c a c } c "c } c "c } c *c } c a c } € a c } c "c } € "k 

}" 

360 PRINT » ABCDEFGH" 

370 for n*l to 8:n*=str*(9-n> : char 1,0, n*2 
,n*:next 

380 GOSUB 750 

390 RETURN 

400 REM >>>>>>>>>> CHARS <<<<<<<<<<< 

410 REM 

420 FOR N=52 TO 56 STEP 2: POKE N, 55: NEXT 

430 RESTORE: FOR N=0 TO 30: READ A: POKE 828+ 

N, A: NEXT: SYS 828 

440 POKE 65298, 192: POKE 65299, (PEEK (65299) 

AND 3) OR 56 

450 FOR N-0 TO 95 

460 READ A: IF N>63 THEN A=255-A 

470 POKE 15136+N,A:NEXT 

480 DIM M*(8,8):DIM Z*(100,2) 

490 VOL 8 

500 RETURN 

510 DATA 160,0,132,212,132,214,169,208,133 

,213, 169,56,133,215,162,3 

520 DATA 177,212,145,214,200,208,249,230,2 

13, 230, 215, 202, 16, 242, 96 

530 REM 

540 DATA 255,255,255,255,240,143,127,31 

550 DATA 255,255,255,255,15,241,254,206 

560 DATA 66,80,85,85,133,240,255,255 

570 DATA 194,30,226,30,241,15,255,255 
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580 DATA 255,255,255,255,240,128,0,0 

590 DATA 255,255,255,255,15,1,0,48 

600 DATA 67,80,85,85,133,240,255,255 

610 DATA 194,28,224,0,1,15,255,255 

620 DATA 0,1,9,86,98,86,68,128 

630 DATA 0,128,144,106,70,106,26,1 

640 DATA 0,1,9,87,99,118,125,255 

650 DATA 0,128,144,234,198,110,58,187 

660 REM >>>>>>>> INITIALIZE <<<<<<<<< 

670 REM 

680 FOR N=l TO 8: FOR M=l TO 8: M*(N, M) ="0" : 

NEXT: NEXT 

690 FOR N=l TO 8 STEP 2 

700 m*(i,n+d=-a-:m*(2,n) = -a":m*<3,n+i) = "A 

710 m*(8,n)="b-:m*(7,n+1)="b-:m*(6,n)=-b" 

720 next n: return 

730 rem >>>>>>>> draw pieces <<<<<<<<< 

740 REM 

750 FOR N=l TO 8: FOR M=l TO 8 

760 C*=M*(N,M) : IF C*="0" THEN GOTO 780 

770 GOSUB 810 

780 NEXT: NEXT: RETURN 

790 REM >>>>>>>>>> PIECE <<<<<<<<<<< 

800 REM 

810 IF C*="0" THEN D*="<RVS ON> «RVS OFF> 

":Dl*="tRVS ONJ «RVS OFF}": GOTO 860 

820 D*=CHR*<228> +CHR*(229) : D1*=CHR* (230) +C 

HR*(231) 

830 IF C*="A" THEN D*=CHR* (232) +CHR* (233) : 

D1*=CHR*(234) +CHR*(235) 

840 IF C*=-D" THEN D*=CHR*( 236) +CHR*( 237) 

850 IF C*="C" THEN D*=CHR*(238) +CHR* (239) : 

D1*=CHR*(234) +CHR*(235) 

860 COLOR 1,14, 4: CHAR 1 , M*2+l , N*2, D*: CHAR 

1 , M*2+l , N*2+l , Dl* 

870 RETURN 

8 80 REM >>>>>>>>>>> MOVE <<<<<<<<<<<< 

890 REM 

900 COLOR 1,14, 4: FOR N=2 TO 15: CHAR 1,25,N 

,"€RVS ON> CRVS OFF>":NEXT 

910 COLOR 1,3, 2: FOR N=6 TO 13: CHAR 1,26,N, 

" : NEXT 
920 COLOR 1,16, 4: CHAR 1,26,3," DRAUGHTS.": 
CHAR 1,26,4," » 
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n^A 



930 COLOR 1,8,4: IF PLA=1 THEN N*="WHITE":E 

LSE N*=" BLACK" 

940 CHAR 1, 29, 6, N*: CHAR 1 , 27, 8, "FROM: -" : CH 

AR 1,27, 11, "TO :-" 

950 Y=8:GOSUB 980:F*=N* • ^ 

^>6g} Y=ll: GOSUB 980:S*=N* 1 ' * n ' >V Vx 
l 970 RETURN 

980 N*="" 

990 GETKEY A*: SOUND 1,500,10 

1000 IF A*="Q" THEN RUN 

1010 IF A*»"S" THEN GOSUB 1680 

1020 IF A*="L" THEN GOSUB 1800: GOTO 900 

1030 IF A*="#" AND COUNT>l THEN Z*(COUNT,l 

>=-FF":GOTO 1940 

1040 IF A*<"A" OR A*>"H" THEN GOTO 990 

1050 N*=A*:CHAR 1,34,Y,N* 

1060 GETKEY A*: SOUND 1,600,10 

1070 IF A*<"1" OR A*>"9" THEN GOTO 1060 

1080 N*=N*+A*:CHAR 1 , 34, Y, N*: RETURN 

1090 REM >>>>>>>>>>> MOVE <<<<<<<<<<<< 
REM 

GOSUB 1230 

M*(S1,S>=»M*(F1,F> :M*(F1,F>="0" 
IF Sl=l AND M*(1,S>="B" THEN M*(1,S>= 



1100 
1110 
1120 
1130 
"D" 

1140 

"C" 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 



IF Sl=8 AND M*(8,S)="A" THEN M*(8,S>= 



SOUND 1,750,30 
RO=Sl:CL=S: GOSUB 1190 
RO=Fl:CL=F: GOSUB 1190 
RETURN 

n=ro:m=cl:c*=m*(N,M) 

GOSUB 810: RETURN 

REM >>>>>>>>> CONVERT 

REM 

F= ASC ( LEFT* ( F* , 1 > > -64 
1240 F1-9-VAL (RIGHT* (F*,l> ) 
1250 S=ASC(LEFT*(S*, 1) ) -64 
1260 S1=9-VAL (RIGHT* (S*,l> ) 
1270 RETURN 

1280 R*=CHR*(M+64)+STR*(9-N) 
4£20 RETURN 

1300 REM >>>>>>>>> VALIDATE 
1310 REM 
1320 GOSUB 1230:P*="B":P1*=" 



<<<<<<<<<<< 



<<<<<<<<<< 
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1330 IF PLAY-2 THEN P»«"A" :P1*«"C" 

1340 CHECK- 1 : C*«H* <F1 , F) : D*=M* (SI ,S) 

1350 IF C*="0" OR D*<>"0" THEN RETURN 

1360 IF (C*="A" OR C*«"C")AND PLAY=1 THEN 

RETURN 

1370 IF <C*="B" OR C*="D*)AND PLAY=2 THEN 

RETURN 

1380 if c*="a" and skf1 then return 
1390 if c*="b" and si >f1 then return 
1400 xd-s-f:yd=si-fi 
1410 if sgn(xd)*(xd)=1 and sgn ( yd) * ( yd) =1 

THEN 1490 

1420 IF <SGN(XD)*XDOSGN(YD)*YD)OR(XD*XD<> 

4) THEN RETURN 

1430 X*=M*(Fl+(YD/2) ,F+(XD/2) ) 

1440 IF <X*="A" OR X»="C")ANDPLAY=2 THEN R 

ETURN 

1450 IF <X»«"B" OR X*="D")ANDPLAY=1 THEN R 

ETURN 

1460 IF X»="0- THEN RETURN 

1470 N«Fl+<YD/2) :M=F+(XD/2) :M*(N, M) =-0- :C* 

=-0»:GOSUB 810 

1480 GOSUB 1 280 : Z* C COUNT, 1)=R*:Z*( COUNT, 2) 

*R*: COUNT*COUNT+l 

1490 CHECK=0: RETURN 

1500 REN >>>>>>>>>>> TURN <<<<<<<<<<<< 

1510 REN 

1520 CHAR ,25,20," ": GOSUB 900 

1530 GOSUB 1320 

1540 IF CHECK=0 THEN 1570 

1550 COLOR 1,9, 4: CHAR 1 , 25, 20, "INVALID NOV 

E" 

1560 SOUND 1,600, 25: SOUND 1 , 400 , 25 : SOUND 1 

,200, 35: FOR Q=1TO200: NEXT: GOTO 1520 

1570 GOSUB 1110 

1 580 Z* C COUNT , 1 ) =F* : Z* ( COUNT , 2 ) =S* 

1590 COUNT*COUNT+l:lF COUNT=101 THEN COUNT 

= 1 

1600 RETURN 

1610 REN >>>>>>> BOTH PLAYERS <<<<<<<< 

1620 REN 

1630 PLAY=l: GOSUB 1520: GOSUB 80 

1640 PLAY-2: GOSUB 1520: GOSUB 80 

1650 RETURN 

1660 REN >>>>>>>>>>> SAVE <<<<<<<<<<<< 
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1670 REM 

1680 OPEN 1,1,1," DRAFTS " 

1690 FOR N«1T08:F0R M-1T08 

1700 PRINT#1,M»(N,M> 

1710 NEXTM.N 

1720 FOR N=1TO100 

1730 PRINT#1,Z*<N,1):PRINT#1,Z*<N,2) 

1740 NEXT N 

1750 pr i nt#i, count: pr int#i 

1760 CLOSE 1 

1770 SOUND 1,200, 20: SOUND 1 , 400 , 20 : SOUND 1 

,600, 30: RETURN 

1780 REM >>>>>>>>>>> LOAD <<<<<<<<<<<< 

1790 REM 

1 800 SOUND 1 , 200 , 20 : SOUND 1 , 400 , 20 : SOUND 1 , 60 

0,30 

1810 OPEN 1,1,0, "DRAFTS" 

1820 FOR N=1T08:F0R M=1T08 

1830 INPUT#1,M*(N,M) 

1840 NEXTM,N 

1830 FOR N=1TO100 

1860 INPUTttl , Z*<N, 1 ) : INPUTttl , Z* (N, 2) 

1870 NEXT 

1880 INPUT#l,COUNT 

1890 CLOSE 1 

1900 SOUND 1,200, 20: SOUND 1 , 400 , 20 : SOUND 1 

,600,30:GOSUB 300:GOSUB 750 

1910 RETURN 

1920 REM >>>>>>>>>> REPLAY <<<<<<<<<<< 

1930 REM 

1940 COUNT=0:PLAY=l: GOSUB 290:GOSUB 750 

1950 COUNT=COUNT+l:lF Z* (COUNT, 1 > ="FF" THE 

N 2050 

1 960 F*=Z* ( COUNT , 1 ) : S*=Z* < COUNT , 2 ) 

1970 GOSUB 1110: IF F*=S* THEN 1950 

1980 GETKEY A*:PLAY=2 

1990 COUNT=COUNT+i:lF A*="#" OR Z*<COUNT,l 

)=«FF" THEN 2050 

2000 F*=Z* < COUNT , 1 ) : S*=Z* ( COUNT , 2 ) 

2010 GOSUB 1110: IF F*=S* THEN 1990 

2020 GETKEY A*:PLAY=1 

2030 IF A*="#" THEN 2050 

2040 GOTO 1950 

2050 IF PLAY=1 THEN 1630: ELSE 1640 



8 
Chess Duel 




Computer Moderated Micro Chess 

It will come as a surprise to many that before the age of chess 
computers and the microcomputer program, the game of chess was 
originally played by two human beings. 

An intelligent chess playing program would take up an entire book 
on it's own, so it was decided to develop a program which would be of 
genuine use to anyone who enjoyed playing chess or would like to 
learn more about it. Chess clubs could also find the program helpful. 

The program can be used simply as a replacement for a chess board 
and pieces. The two players enter their moves in usual standard chess 
notation. However, extra features have been included to produce 
worthwhile advantages over the traditional board and pieces. 

Only moves which are the correct colour, are from occupied 
squares and move to a square which can be reached by that piece, will 
be accepted. Pieces which are 'taken' in the process are removed from 
the board. 

It is up to the humans to watch out for rule violations as in normal 
chess. 
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A useful feature is that the initial board may be set up for chess 
problems or chess variants and games of up to 100 moves can be 
stored and analysed step by step. Play can continue from any stage of 
a saved game or the present game can be re-started and then played 
from any subsequent move. 



Summary of commands and options 

1 . Set up board. Enter 'Y' when asked. Then sequentially from the 
top left, place each piece using a single letter. Move on using 'Space'. 

White pieces: P=pawn, R=rook, N=knight, K=king, Q=queen, 

B=bishop. 

Black pieces: the same but with 'Shift' held. 

White always plays up the board. 

2. Remove piece. 'R' then enter the position. Play continues with 
the next player. 

3. Save game. 'S'. 

4. Load game. 'L', then press 'Play'. This loads the first file found. 

5. Step through game. 'Shift' '3' initiates step mode. 'Space' steps 
through each move. 'Shift' '3' then ends mode. 

6. Quit. 'Q' resets for new game. 

10 REM <<<<<<<<< CHESS <> ISSI >>>>>>>>> 

20 REM 

30 GOSUB 230: FOR N-l TO 100: Z*(N, 1 ) ="00" : Z 

*«N,2)="00":NEXT 

40 GOSUB 60: GOSUB 630: COUNT- 1 : GOSUB 150 

50 GOSUB 1330: GOTO 50 

60 GOSUB 630 

70 COLOR 0,3,0: COLOR 4,3,0:COLOR 1,2,4:GRA 

PHIC 0: GRAPHIC CLR 

80 PRINT "tCLR>tCUR DN> t A U> { A C>{ A C} t A C> t 

2CJ> t A C) t A C > t "C > t "O t A C > t ~C > t ~C >< A *C >< A C >< A C 

>C~C>t A C>{ ; *I>" " 

90 B*-" t^-j {RVS ON> tRVS OFF> €RVS O 

NJ <RVS OFF! {RVS ONJ <RVS OFF> <RVS O 

N> <RVS OFF>€ A ->" 

100 A*==" « A ->tRVS ON> «RVS OFF> €RVS ON 

> <RVS OFF> tRVS ON> <RVS OFF> tRVS ON 

> tRVS OFF> t A ->" 

110 for n=l to 4: print a*: print a*: print b 
*: print b*:next n 
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120 PRINT ■*- < A J}«~C><~C>€ A C>€ A C>C A C>t A C>{ 

"C } € A C> t A C> { A C> { A C> « A C> € "C> « "C> { "C > { "C > { "K 

J" 

130 PRINT " ABCDEFGH" 

140 FOR N=l TO 8:N*=STR*<9-N) : CHAR 1,0, N*2 

,N*: NEXT: RETURN 

150 CHAR, 5, 22, "DO YOU WANT TO SET A BOARD 

?" : GETKEYA*: SOUND 1 , 400, 10 

160 IF A*="Y"THENGOSUB 1800: GOTO 180 

170 IF A*<>-N"THEN 150 

180 w*="":for n=ito29:w*=w*+- -:next 

190 CHAR, 5, 22, W* 
200 GOSUB 670 

210 for n=100 to 900 step 200: sound 1,n,10 
:next 

220 FOR N-l TO 8: FOR M=l TO 8: X*(N, M) =M* (N 

, M) : NEXTM, N: RETURN 

230 FOR N=52 TO 56 STEP 2: POKE N, 55: NEXT 

240 RESTORE: FOR N=0 TO 30: READ A: POKE 828+ 

N, A: NEXT: SYS 828 

250 POKE 65298, 192: POKE 65299, (PEEK (65299) 

AND 3) OR 56 

260 FOR N=0 TO 255 : RE ADA : POKE 15104+N,A:NE 

XT 

270 DIM M* (8, 8): DIM Z*(100,2) 

280 DIM X* (8, 8): VOL 8: RETURN 

290 DATA 160,0,132,212,132,214,169,208,133 

,213,169,56,133,215,162,3 

300 DATA 177,212,145,214,200,208,249,230,2 

13, 230, 215, 202, 16, 242, 96 

310 DATA 1,3,29,63,63,57,28,7 

320 DATA 0,128,56,252,252,156,56,224 

330 DATA 1,19,81,91,109,55,27,15 

340 DATA 128,200,138,218,182,236,216,240 

350 DATA 1,1,7,14,28,28,14,7 

360 DATA 128,128,224,240,120,120,240,224 

370 DATA 0,0,3,7,15,31,9,3 

380 DATA 0,192,64,224,176,208,232,120 

390 DATA 0,0,25,25,25,31,9,3 

400 DATA 0,0,152,152,152,248,240,240 

410 DATA 7,7,4,31,16,127,64,127 

420 DATA 224,224,224,248,120,254,30,254 

430 DATA 0,0,0,0,0,3,7,7 

440 DATA 0,0,0,0,0,192,224,224 

450 DATA 5,4,3,15,8,31,16,31 
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460 DATA 224,224,192,240,112,248,56,248 
470 DATA 253,227,221,191,191,187,222,231 
480 DATA 127,131,59,253,253,157,59,231 
490 DATA 237,147,85,91,109,173,219,239 
500 DATA 183,201,170,218,182,239,219,247 
510 DATA 253,249,247,238,220,220,238,247 
520 DATA 191,159,239,247,251,251,247,239 
530 DATA 255,254,249,247,239,223,233,243 
540 DATA 63,223,95,239,183,215,235,124 
550 DATA 255,230,217,217,217,223,236,239 
560 DATA 255,103,155,155,155,251,247,247 
570 DATA 247,247,228,223,144,127,64,127 
580 DATA 239,239,231,251,121,254,30,254 
590 DATA 255,255,255,255,252,251,247,247 
600 DATA 255,255,255,255,63,223,239,239 
610 DATA 245,250,243,239,232,239,208,223 
620 DATA 239,239,207,247,119,251,59,251 
630 FOR N=l TO 8: FOR M=l TO 8: M*(N, M> ="0" : 
NEXTM,N 

640 restore 660: for n=l to 8: read n*:m*(8, 

n)=n*:m*(i,n)=chr*<asc<n*)+6) 

650 m*<2,n>="g»:m*<7,n>="A":next:return 

660 data b,c,d,e,f,d,c,b 

670 FOR N=-l TO 8: FOR M=l TO 8 

680 GOSUB 690: NEXTM.N: RETURN 

690 C*=M*(N,M) :IF C*>"F" THEN C*=CHR*(ASC< 

c*)-6> :r=i:else r=0 

700 A=N/2:B=M/2 

710 IF (A=INT(A) )AND(B=INT<B) ) OR (AOINTI 

A) )AND(BOINT(B) ) THEN SQ=0:ELSE SQ=1 

720 IF C*="0"THEN 800 

730 IF SQ=R THEN BAS= 176: ELSE BAS-160 

740 IF C*="A"THEN B*=CHR* (BAS+14) +CHR*(BAS 

+15) :ELSE B*=CHR*(BAS+10) +CHR*<BAS+11 ) 

750 IF C*="A"THEN T*=CHR* (BAS+12) +CHR*(BAS 

+13) :GOTO 780 

760 CH*2*<ASC(C*)-65) :CH=10-CH 

770 T*=CHR* < B AS+CH ) +CHR* < BAS+CH+ 1 > 

780 IF R=1THENT*="«RVS ON> B +T*+ " CRVS OFF>" 

:B*="<RVS ON>"+B*+"€RVS OFF>" 

790 COLOR 1,2, 4: CHAR 1 ,M*2+1 , N*2, T*: CHAR 1 

, M*2+ 1 , N*2+ 1 , B*: RETURN 

800 IF SQ=1THENT*=" " : ELSE T*="tRVS ON> 

€RVS OFF}" 

810 B«=T*:GOTO 790 
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820 COLOR 1,2, 4: FOR N=2T015: CHAR1 , 25, N, " <RV 

S ON> CRVS off>":next 

830 COLORl,3,2:FOR N=6T013: CHAR1 , 26, N, " 

" : NEXT 
840 COLORl,16,4:CHARl,26,3, "CHESS DUEL" 
850 COLORl,8,4: IF PLA=1THENN*=" WHITE" : ELSE 

N*»" BLACK" 
860 CHAR1,29,6,N*:CHAR1,27,8, "FROM: -": CHAR 
1,27, 11, "TO :-" 
870 Y*8: GOSUB 890:F*=N* 
880 y=ii:gosub 890: s*=n*: RETURN 
890 N*="" 

900 GETKEY A*: SOUND 1,500,10 
910 IF A*="Q"THEN RUN 
920 IF A*="S"THEN GOSUB 1350 
930 IF A*- "L" THEN GOSUB 1460: GOTO 820 
940 IF A*="R"THEN GOTO 1690 

950 IF A*«"#"AND COUNT >1 THEN Z* ( COUNT, 1)= 
"FF":GOTO 1570 

960 IF A*<"A"ORA*>"H"THEN GOTO 900 
970 N***A*:CHAR 1,34,Y,N* 
980 GETKEY A*: SOUND1 , 600, 10 
990 IF A*<"l"ORA*>"9"THEN GOTO 980 
1000 N*=N*+A«: CHAR1 , 34, Y, N*: RETURN 
1010 GOSUB 1060:M*(S1, S>=M*(F1,F) :M*(F1,F) 
="0": SOUND 1,750,30 
1020 RO=Sl:CL=S: GOSUB 1040 

1030 ro=fl:cl=f: gosub 1040: return 
1040 n=ro:m=cl:c*=m*<n,m) 
1050 gosub 690: return 
1060 f=asc (left* (f*, 1 ) ) -64 
1070 f1=9-val (right* (f*. 1) ) 

1080 S=ASC ( LEFT* ( S* , 1 ) ) -64 

1090 S1=9-VAL (RIGHT* <S*,1) ) : RETURN 

1100 R*«CHR*(M+64)+STR*(9-N) : RETURN 

1110 GOSUB 1060 : CHECK= 1 : C*=M* ( F 1 , F ) : D*=M* ( 

S1,S) 

1120 IF C*="0" THEN RETURN 

1130 IF (C*<"G" OR (D*>"F"ANDD*<>"0") ) AND 

PLAY=2 THEN RETURN 
1140 IF(C*>"F"OR(D*<"G"ANDD*<>"0") ) ANDPLAY 
=1THEN RETURN 

1150 IF C*="G"ANDSKF1THEN RETURN 
1160 IF C*«"A"ANDS1>F1THEN RETURN 
1170 IF D*="L"ORD*-"F"THEN RETURN 



60 Commodore 1 6 Games Book 

1180 IF C«="B"ORC*="H"THEN 1940 
1190 IF C*="C"ORC*="I"THEN 1950 
1200 IF C*="D"ORC*="J"THEN 1990 
1210 IF C*="E"ORC**"K"THEN 2020 
1220 IF C*="F"ORC*="L"THEN 2060 

1230 check=0:if c*<>"c"andc*<>" i "then goto 
2070: else return 

1240 w*="-:for n=itoi2:w*=w*+- ":next 
1250 char, 25, 20, w*: gosub 820:gosub 1110 
1260 if check-0then1290 

1270 COLOR 1,9, 4: CHAR 1 , 25, 20, " INVALID MOV 

E" 

1 280 SOUND 1 , 600 , 25 : SOUND 1 , 400 , 25 : SOUND 1 , 20 

0,35: FOR Q=1TO200: NEXT: GOTO 1240 

1290 GOSUB 1010 

1 300 Z* i COUNT , 1 ) »F* : Z* < COUNT , 2 ) =S* 

1310 COUNT=COUNT+l: IF COUNT=101 THEN COUNT 

*1 

1320 RETURN 

1330 PLAY=l: GOSUB 1240 

1340 PLAY*2: GOSUB 1240: RETURN 

1350 Z* (COUNT, 1)="FF": SOUND 1 , 200 , 20 : SOUND 

1,400, 20: SOUND 1,600,30 
1360 OPENl,l, 1, "CHESS" 
1370 FOR N«1T08:F0R M=1T08 
1380 PRINT#1,M*(N,M) : PRINT#1 , X* (N, M) 
1390 NEXTM.N 
1400 FOR N=1TO100 

1410 PRINT#1,Z*<N, 1) :PRINT#1,Z*«N,2) 
1420 NEXT 

1430 PRINT#1, COUNT : PRINT* 1 
1440 CLOSE 1 

1 450 SOUND 1 , 200 , 20 : SOUND 1 , 400 , 20 : SOUND 1 , 60 
0,30: RETURN 

1 460 SOUND 1 , 200 , 20 : SOUND 1 , 400 , 20 : SOUND 1 , 60 
0,30 

1470 OPEN 1,1,0, "CHESS" 
1480 FOR N=1T08:F0R M=1T08 
1490 INPUT#1,M*<N,M) : INPUTK1 , X*<N, M) 
1500 NEXTM,N 
1510 FOR N=1TO100 

1520 INPUT#1,Z*CN, 1) : INPUT#1,Z*(N,2) 
1530 NEXT 

1540 INPUT#1, COUNT 
1550 CLOSE 1 
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1 560 sound 1 , 200 , 20 : sound 1 , 400 , 20 : sound 1 , 60 
0,30:gosub 70: goto 670 

1570 count=0:play=i:gosub 60: for n=itos:fo 
r m=ito8:m*(n,M)=x*<n,M) :nextm,n 

1580 GOSUB &70 

1590 COUNT=COUNT+l:lF Z*( COUNT, 1 ) = "FF" THE 

N 1680 

1 600 F**=Z* ( COUNT , 1 ) : S*=Z* ( COUNT , 2 ) 

1610 GOSUB 1010 

1620 GETKEYA*:PLAY=2 

1630 COUNT=COUNT+l:iF A*="#" OR Z* ( COUNT, 1 

>="FF" THEN 1680 

1 640 F*=Z* ( COUNT , 1 ) : S*=Z* ( COUNT , 2 ) 

1650 GOSUB 1010 

1660 getkeya*:play=i 

1670 if a*="#" then 1680: else 1590 

1680 IF PL A Y=l THEN 1330: ELSE 1340 

1 690 SOUND 1 , 200 , 20 : SOUND 1 , 400 , 20 : SOUND 1 , 60 

0,30 

1700 CHAR, 30, 22, "PIECE: -" 

1710 GETKEYA*:SOUND1,400,10:IF A*<"A"ORA*> 

"H-THEN 1710: ELSE CHAR , 34 , 24 , A* 

1720 GETKEYB*: SOUND 1,500, 10: IF B*< " 1 " ORB* > 

-8 "THEN 1720: ELSE CHAR, 35, 24, B* 

1730 F*=A*+B* 

1740 S*=F*: GOSUB 1060: M*(F1 , F) ="0" 

1750 CHAR, 30,22," " : CHAR, 34, 24, " 

1760 N=Fl:N*F: GOSUB 690 

1770 Z* (COUNT, 1 ) «F*: Z* (COUNT, 2) =S*: COUNT=C 

OUNT+l:lF COUNT=101 THEN COUNT=l 

1780 IF PLAY-1 THEN PLAY=2: GOSUB 1240 

1790 GOTO 50 

1800 FOR N=1T08:F0R M=1T08 

1810 SOUND 1,200, 10: SOUND 1,400, 10 

1820 T*="<RVS ON}{ A U){ A I}{RVS OFF>":B««"tR 

VS ON>« A JX A K>tRVS OFF>" 

1830 COLOR1 , 15, 2: CHAR1 , M*2+l , N*2, T«: CHAR1 , 

M*2+1,N*2+1,B* 

1 840 GETKE Y A* : I F A*=CHR* (13) ORA*= " " THENC* 

«"0":GOTO 1890 

1 850 RESTORE 1 920 : FL AG=0 

1860 FOR Q»1T012:READA,B« 

1870 IF ASC<A*)»ATHENC*=B*:FLAG=1 

1880 NEXT: IF FLAG-0THEN1840 

1890 M*(N,M)=C* 
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1900 GOSUB 690:NEXTM,N 

1910 RETURN 

1920 DATA 80, A, 82, B,78,C,66,D, 81, E,75,F 

1930 DATA 208, G, 210, H, 206, I, 194, J, 209, K, 20 

3,L 

1940 IF FIOSIANDFOS THENRETURNIELSE GOTO 

1230 
1950 TA=(F1-S1>*SGN<F1-S1> : TB= <F-S)*SGN <F- 
S) 

1960 IF TA=2ANDTB=1THEN 1230 
1970 IF TA=1ANDTB*2THEN 1230 
1980 RETURN 

1990 XD=F-S:XD=SGN(XD)*XD 
2000 YD=F 1 -S 1 : YD=SGN < YD ) *YD 

2010 IF XDOYDTHEN RETURN: ELSE GOTO 1230 
2020 XD=F-S : XD=SGN ( XD ) *XD 
2030 YD=F1-Sl: YD*SGN<YD)*YD 
2040 IF XDOYDTHEN 1230 
2050 IF FIOSIANDFOS THEN RETURN 
2060 IF SGN<F1-S1)*(F1-S1)01 AND SGN(F-S) 
*<F-S)<>1 THENRETURNZELSE GOTO 1230 
2070 ND=0:MD=0 
2080 IF F1>S1THEN ND=-1 
2090 IF S1>F1THEN ND-1 
2100 IF F>STHEN MD=-1 
2110 IF S>FTHEN MD=1 
2120 CN=Fl:CM=F 

2130 cn=cn+nd:cm=cm+md:if CN=S1ANDCM=S the 

N RETURN 

2140 IF M* (CN, CM )O"0"THENCHECK=l: RETURN 

2150 GOTO 2130 
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^4 Novel Strategy Game for Two 

As far as I am aware we are the first to produce a computer 
implementation of Simple Simmons, a game usually played with 
pencil and paper. 

Simple Simmons or Sim was invented by a chap called Gustavus 
Simmons. We have decided to call this computer version of the game 
Gustavus as it sounds more grand than its paper cousin. 

The game requires players alternately to draw a line between two 
points. The first to form a triangle of his own colour, whose points 
each rest on one of the original points, is the loser. The trick is to force 
your opponent into making the fatal triangle first. 

The computer will take care of the turns together with the colour 
changes and will indicate the winner when a triangle is formed. 

Lines are drawn by moving clockwise or anti-clockwise, using 
either left or right cursor keys. When on the first point from which a 
line is required press the space bar. A bleep signifies acceptance of the 
line origin. The cursor is next moved to the destination location, then 
as the space key is pressed the line will be drawn. If an invalid line is 
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attempted a sound will indicate the fact. New start and finish points 
will then be required. 

The game cannot end in a draw and there is no apparent advantage 
gained by being the first player. This game is very good for 
developing spacial awareness! 

10 REM >>>>>GUSTAVUS<<<<<<< 

20 REM >>>>>DAVIS/ISSI/JIM<< 

30 COLOR0, 1 : COLOR4, 1 : VOL8: GOSUB120 

40 GOSUB80 : GOSUB 1 40 : GOSUB330 : FORN=0TO999 : N 

ext: IFPL=1THENWI=2:EI_SEWI=1 

50 IFWI-1THENC=12:ELSEC=14 

60 COLOR 1,C, 4: A*=" PLAYER "+STR*( WIN) +" WON 

• ":CHAR1, 14,24, A* 

70 GET A* : I F A*= - " THEN70 : ELSE40 

80 GRAPHIC 1, l:COLORl,2,7:CHARl, 16,0, "GUSTA 

VUS": COLOR 1,8, 6 

90 F0RN-1T06:L0CATEP(N,1)+4,P(N,2)-4:DRAWT 

O+0,+8 

100 ORAWTO-8, +0:DRAWTO+0, -8:DRAWTO+8, +0:lo 

CATEP(N,1) ,P(N,2) :NEXT:COLORl, 12,4 

110 CHAR 1,0, 10, "PLAYER 1 " :COLORl , 14, 4: CHAR 

1,32,10, "PLAYER 2": RETURN 

120 DIMP(6,2) ,0(6,6) : RESTORE 130: F0RN=1T06: 

REAOP ( N , 1 ) : RE ADP ( N , 2 ) : NEXT : RETURN 

130 DATA160, 150,220,120,220,55,160,25,100, 

55, 100, 120 

140 F0RN=1T06: F0RM=1T06: D (N, M) =0: NEXT: NEXT 

: RETURN 

150 le=0:ri=0:fi=0:geta*: iFA*="tcuR l>-the 

nle«i:elseifa*="<cur rt>-thenri=i 

160 ifa*=" "thenfi=1 

170 j=joy<l)orjoy<2) : ifj*3thenri=l:elseifj 

=7THENLE=1 

180 IFJ=128THENFI=1 : RETURN: ELSERETURN 

190 PN=l:lFPL=lTHENCOLORl, 12, 4: ELSECOLOR1 , 

14,4 

200 LOCATEP ( PN , 1 ) -5 , P ( PN , 2 ) +5 : GOSUB380 : GOS 

UB150: IFFI=1THEN250 

210 LOCATEP(PN,1)-5,P(PN,2)+5:GOSUB380:IFL 

E=1THENPN=PN-1 

220 IFRI»1THENPN*PN+1 

230 I FPN«7THENPN= 1 : ELSE I FPN=0THENPN=6 

240 GOTO200 

250 SOUND 1 , 800, 10: RETURN 
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260 LOC ATEP ( FR , 1 > -5 , P ( FR , 2 > +5 : GOSUB380 : LOC 
ATEP(DE, 1>-5,P(DE,2)+5:GOSUB380 

270 RETURN 

280 GOSUB 1 90 : FR-PN : GOSUB 1 90 : DE=PN : GOSUB260 

290 I FFR=DEORD ( FR , DE X >0THENSOUND3 , 800 , S : S 

OUND3, 1010, 5: GOTO280 

300 LOCATEP (FR, 1 ) , P (FR, 2) : DRAWTOP (DE, 1 ) , P ( 

DE,2> :D(DE,FR)=PL:D(FR,DE>=PL 

310 FORN* 1 T06 : I FD ( DE , N ) =PL ANDD ( N , FR ) =PLTHE 

NDD=1 : GOSUB350 

320 NEXT: RETURN 

330 DD=0 : PL* 1 : GOSUB280 : I FDD= 1 THENRETURN : EL 

SEPL-2: GOSUB280 

340 IFDD-1THENRETURNZELSE330 

350 COLORl,2,7:LOCATEP(FR, 1) ,P(FR,2) 

360 DRAWTOP (N,1),P(N, 2): DRAWTOP (DE,1),P(DE 

,2) : DRAWTOP (FR,1) ,P(FR,2) 

370 SOUND3 , 999 , 20 : RETURN 

380 I FPL= 1 THENGOSUB430 : ELSEGOSUB440 

390 IFPL-1THENC»12:ELSEC»14 

400 COLOR1 , C , 6: LOCATE+9, -9: DRAWTO+0, +8: DRA 

WTO-8, +0: DRAWTO+0, -8: DRAWTO+8, +0 

410 IFPL=1THENC»12:ELSEC=14 

420 COLOR1 , C, 4S DRAWTO+0, +8: DRAWTO-8, +0: DRA 

WTO+0, -8: DRAWTO+8, +0ZLOCATE-9, +9: RETURN 

430 COLOR1 , 2, 5: CHAR1 ,0,11, "«"*>« "*> < A *> <■ A * 

><"*>€ A *> C~*>":COLOR1,1:CHAR1,0,11, " 

" : RETURN 
440 COLORl,2,5:CHARl,32,ll,"C A *>«~*>< A *>« A 
*>< A *>t~*> t A *>":CHAR0,32,ll,- ":RE 

TURN 
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Dice Derby 




Shake! 

This is the first of a dice trio to be followed by Snake Eyes and Craps. 
All three use the same central routines and a menu is provided to 
select between the games. This will produce an enjoyable set of dice 
games and save a lot of typing. 

Dice Derby is a race game in which the dice total is used to 
determine how far each horse travels. It can be played by two to four 
players and has an attractive shaking cup feature. 

The fire button is pressed to start the roll and again to finish. This 
means that each player can exercise control over the duration of each 
shake. 

The characters will race along until one is declared the winner. The 
winner is not determined until the last throw of the round and so 
some very close 'photo finishes' are possible. 

The listing for all three games follows the Craps instructions. 
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Snake 




Rattle! 

This is the second of the three dice games. The instructions for 
throwing the dice are the same for all the games. 

The game is for two to four players and includes on-screen betting. 
At the start the target pot is entered, which may be between £40 and 
£400. The bank starts at £0. 

Each player then rolls the dice. If a double is thrown then the player 
wins the bank amount. If 'Snake Eyes' (two ones) is thrown then the 
player gets twice the bank total. The bank resets to zero when it pays 
out. 

After each round t he bank gets £5 if the target set i s below £200 and 
£10 if the target is above £200. 

The game continues until a player's cash reaches the target score. 

It may be interesting to change the amount to the bank after each 
round to provide a larger 'pot'! 

The listing follows the Craps instructions. 
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Craps 




. . . and Roll! 

Here it is, the micro version of the American dice game featured in 
gangster movies and TV shows. 

Two to four players can now pretend that they are in Las Vegas 
courtesy of the Commodore 16. 

At the start of the game each player has £100 (you can change it to 
dollars if you want more realism!). A bet is placed up to the total 
holding of each player on his turn. Then the fun begins. 

If a 7 or 1 1 is thrown first then they are paid evens. If 2, 3 or 12 is 
thrown the turn ends and the stake is lost. Any other total becomes 
the point. This is then the total to roll for. 

The player continues to roll until the point is reached, paying 
evens, or a 7 is thrown in which case it is the next player's turn. 

If a player loses all his money then he drops out and the game 
continues until only one player is left. 

The listing which follows will produce all three dice programs with 
menu selection. 
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10 REM >>>>> DICERAMA * ISSI/GREG/ JIM< < < < 

20 POKE52 , 55 : POKE54 , 55 : POKE56 , 55 : GOSUB2 1 60 

: SYS882 : VOL8 : POKE2 14,0 

30 POKE65298, 192: POKE65299, (PEEK < 65299) AND 

3)OR56 

40 XX=RND(-TI> 

50 GOSUB210:GOSUB910 

60 SCNCLR : GOSUB620 

70 COLORl,6,3:CHARl,13,2,"l > DICE DERBY" 

80 CHAR1,13,4, "2 > SNAKE EYES" : CHAR1 , 13, 6, 

n 3 > CRAPS" 

90 GETKE Y A* : SOUND 1 , 500 , 1 2 

100 ONVAL (A*) GOTO 1060, 1380, 1670 

110 GOTO90 

120 COLORl,3,3:CHARl, 13,8, "PRESS SPACE BAR 

M 

130 GETKE Y A* 

140 IFA*<>" "THEN130 

150 GOTO60 

160 POKE210, 150:POKE211,0:POKE212,7:SYS828 

170 POKE210, 134: POKE21 1 , 1 13: POKE212, 12: SYS 

828: RETURN 

180 POKE210, 134: POKE21 1 , 0: POKE212, 12: SYS82 

8 

190 POKE210,150:POKE211,113:POKE212,7:SYS8 

28: RETURN 

200 REM >>>>>> DEFINE CHARACTERS <<<<<< 

210 RESTORE230:FORT=0TO79:READA:POKE14616+ 

T, A: NEXT 

220 FORT=0TO4 15 : READA : POKE1 4848+T , A : NEXT : R 

ETURN 

230 DATA0, 0,0, 24, 24, 0,0, 0,3, 3, 0,0, 0,0, 192, 

192 

240 DATA3, 3, 0,24, 24, 0,192,192,195,195,0,0, 

0,0, 195, 195 

250 DATA195, 195,0,24,24,0, 195, 195,219,219, 

0,0,0,0,219,219 

260 DATA60,66, 129, 129, 129, 129,66,255,24,24 

,24,24,24,24,24,24 

270 DATA255,66, 129, 129, 129, 129,66,60, 18,34 

, 53, 120, 248, 136, 136, 136 

280 DATA0, 0,0, 0,0, 1,3,2 

290 DATA0, 0,0, 127, 128,0,255,0 
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300 DATA0, 0,0, 248, 24, 41, 203, 74 

310 DATA0, 0,0, 248, 24, 40, 200, 72 

320 DATA2,2,2,2,2,2,2,2 

330 DATA74,74,74,74,74,74,74,82 

340 DATA72,72,72,72,72,72,72,80 

350 DATA2,3,0,0,0,0,0,0 

360 DATA0, 255,0,0,0,0,0,0 

370 DATA98, 195,0,0,0,0,0,0 

380 DATA96, 192,0,0,0,0,0,0 

390 DATA1, 2, 2, 4, 4, 8, 16, 16, 240, 143, 64, 64, 32 

,32,16, 16 

400 DATA0, 0,240, 15,0,0,0,0,0,0,0,0,224,31, 

0,0 

410 DATA0, 0,0, 0,0, 0,248, 7, 0,0, 0,0, 0,0, 0,22 

4 

420 DATA32,32,32,64,64,64, 128, 128,8,8,4,4, 

4,2,2,2 

430 DATA31, 0,0, 0,0, 0,0, 0,0, 240, 8, 8, 8, 4, 4, 4 

440 DATA128, 128, 128, 128, 128, 128, 128, 128,64 

,64,64,64,32,32,32, 16 

450 DATA2,4,4,4,4,8,8, 16,4,4,8,8, 16,240,0, 



460 DATA16, 16,8,8,4,4,2, 1,16,32,32,64,64,1 

95, 156,224 

470 DAT A0, 0,0, 15,112,128,0,0,0,31,224,0,0, 

0,0,0 

480 DATA255, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 15,2 

40 

490 REM * DICE UPRIGHT * 

500 DATA0,0,0,3, 12,48,64, 128,0, 15, 112, 128, 

0,0,0,0 

510 DATA192, 56, 7, 0,0, 0,0, 0,0, 0,0, 192, 32, 24 

,6,1 

520 DATA224, 152, 134,65,64,64,32,32,0,0,0, 1 

28,96,30,1,0 

530 DAT A0, 0,0, 0,0, 0,255, 0,0, 0,0, 0,3, 28, 224 

,0 

540 DATA3, 13,49,193,2,2,2,2,32,16,16,16,8, 

8,8,8 

550 DATA4, 4, 4, 4, 8, 8, 8, 8, 4, 4, 4, 2, 2, 2, 2,1 

560 DATA16, 16, 16,32,32,32,32,32,1, 1,1,1,0, 

0,0,0 

570 DATA0, 0,0,0, 128, 128, 128, 128,64,64,64,6 

4,64, 128, 128, 128 

580 DATA128, 128, 128,64,64,64,64,64, 128, 128 
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, 128,0,0,0,0,0 

590 DATA0,0,0,1,1, 1,1,1,32,32,32,32,56,14, 

3,0 

600 DATA2, 2, 2, 2, 14,112,128,0 

610 REM >>>>>>>>>> SCREEN <<<<<<<<<<<< 

620 COLOR0 , 1 : COLOR4 , 1 : SCNCLR : COLOR 1,2,7 

630 D1*=CHR*(96) +CHR*(97) +CHR*(98) +CHR*(97 

)+CHR*(99) 

640 D2*=CHR*( 100) +CHR*(32) +CHR*( 101 ) +CHR*< 

32)+CHR*(102) 

650 D3*=CHR*(103) +CHR*( 104) +CHR* ( 105) +CHR* 

(104)+CHR*(106) 

660 li*="":fort=107TOH2:li*=li*+chr*(T) :n 

EXT 

670 L2*=CHR*(113)+CHR*(114)+" "+CHR*(115 

)+CHR*(116) 

680 L3*=CHR*(117)+CHR*<100)+" "+CHR*(10 

0) 

690 L4*=CHR*(118)+CHR*(119)+" "+CHR*(126 

)+CHR*<120) 

700 L5*="-:F0RT=121T0125:L5*=L5*+CHR*(T) :n 

EXT 

710 U5*=CHR*<172)+CHR*(173)+" "+CHR*(174) 

720 U6*=CHR* (32) +CHR* (175) +CHR* (32) +CHR* ( 1 

77) +CHR*( 176) 

730 U7*=CHR*(32) +CHR*(178) +CHR*(165) +CHR*( 

179)+CHR*(32) 

740 FORX=0TO38 : CHAR 1 , X , 1 3 , " - " : NEXT 

750 COLORl, 1:CHAR1,6,20,D1*:CHAR1,6,21,D2* 

:CHAR1,6,22,D3$ 

760 CHAR1,12, 17,L1*:CHAR1,12,18,L2*:CHAR1, 

12,19,L3*:CHAR1,12,20,L4« 

770 CHAR1, 12,21 ,L5*: COLORl, 2, 7 

780 SYS913:GOSUB180 

790 RETURN 

800 REM >>>>>>>>>> RATTLE <<<<<<<<<<<< 

810 GOSUB180 

820 SYS913 

830 SOUND2,600,5:SOUND2,0,0 

840 D1=INT(RND<1)#6)+1 

850 D2=INT(RND(1)*6)+1 

860 6ETA*:IFA*<>" "THEN820 

870 SOUND1,400,25 

880 CH=Dl+34:POKE3919,CH:CH=D2+34:POKE3921 

,CH 
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890 RETURN 

900 REM >>>>>>>>> INITIALIZE <<<<<<<<< 

910 DIMS(7) ,P<4,3),0<4) : RETURN 

920 REM >>>>>>>>>> CLEAR <<<<<<<<<<<<< 

930 CL=3112:FORT=1TO12:FORN=0TO39:POKECL+N 

, 32 : NEXT : CL=CL+40: NEXT 

940 RETURN 

950 REM >>>>>>>>> PLAYERS <<<<<<<<<<<< 

960 GOSUB930 : COLOR 1,6,4: CHAR 1,13,5," PLAYER 

S ? 2 - 4" 

970 GETKEYA* 

980 I F A*< " 2 " ORA* > " 4 " THEN970 

990 SOUND 1 , 350, 25: SOUND 1 , 200, 25: SOUND 1 , 100 

,25 

1000 6OSUB930 

1010 FORN=1TO4:P(N,1)=0:NEXT 

1020 PY=VAL(A*> 

1030 forn=itopy:o<n)=i:next 

1040 RETURN 

1050 REM >>>>>>>> DICE DERBY <<<<<<<<<< 

1060 GOSUB960 

1070 F0RN=1T04 

1080 P<N,l)=0:P<N,2)=3*N-2 

1090 next:color1,5,3:restore1110 

1100 fory=itoi2:reada:chari,38,y,chr*(A) :n 

EXT 

11 10 DATA41 , 42, 42, 70, 73, 78, 73, 83, 72, 42, 42, 

43 

1120 FORW=lTOPY:GOSUBl 360: NEXT 

1130 FORW=lTOPY:COLORl,W+3,4 

1140 PL*="PLAYER -+STR* ( W) : CHAR1 , 22, 14, PL* 

1150 SOUND 1,300, 40 

1160 GETKEYA* 

1170 IFA*<>" -THEN1160 

1180 GOSUB810 

1190 GOSUB160 

1200 FORD=lTO(Dl+D2) 

1210 SOUND2,400,i:lFP<W,l) >37THEN 1220: ELSE 

GOSUB1350 

1220 P(W,l)=P<W,l)+l:IFP(W,l)>37THEN1240 

1 230 SOUND2 , 200 , 1 : GOSUB 1 360 
1240 NEXTD:NEXTW 

1250 HO=0:HI=0:WI=0:FORN=1TO4 
1260 IFP(N,1> >37THENHO=P(N,l) 
1270 IFHO>HITHENHI=HO:WI=N 
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1280 NEXT 

1290 IFWI=0THEN1130 

1300 GOSUB930 

1310 COLOR 1, 4, 6 :PL*=" PLAYER "+STR*(WI>+" W 

ON ! " 

1320 CHAR1, 13, 5, PL* 

1330 F0RT=1T06: FORS=800TO500STEP-20: SOUND1 

,S, 2: NEXT: NEXT 

1340 GOTO 120 

1350 CHAR1,P(W,1),P(W,2>," ": RETURN 

1360 COLORl,W+3,4:CHARl,P<W, 1) ,P(W,2) , CHR* 

(44) : RETURN 

1370 REM >>>>>>>>> SNAKE EYES <<<<<<<<< 

1380 GOSUB960 

1390 COLORl,7,4:CHARl, 13,5, "ENTER WIN SCOR 

E ?" 

1400 CHAR1, 28,5, " " : INPUTLM 

1410 IFLM>400ORLM<40THEN1400 

1420 UA=5:GOSUB930: IFLM>200THENUA=10 

1430 COLOR1 , 8, 51 CHAR1 , 5,0, " 1 " : CHAR1 , 15,0, " 

2":CHAR1,25,0, "3":CHAR1,35,0, "4" 

1 440 COLOR 1,4,6: FORT= 1 T07STEP6 : FORN=0TO38 : 

CHAR1,N,T, "--: NEXT: NEXT 

1450 KT=0 

1460 KT=KT+UA 

1470 PR=1 

1480 C0L0R1,8,6:F0RN=1T04:CH**STR*(P(N,1) ) 

: CHAR1 , N*10-6, 3, CH*Z NEXT 

1490 COLORl,PR+3,4:PL*="PLAYER "+STR*(PR>: 

CHAR 1,22, 14, PL* 

1500 GOSUB1530: IFP (PR, 1 > >LMTHEN1650 

1510 PR=PR+l:lFPR>PYTHEN1460 

1520 GOTO 1480 

1530 GETKEYA* 

1540 COLORl,9,6:BA*="BANK STANDS AT "+STR* 

(KT)+- ":CHAR1, 10,12, BA* 

1550 GOSUB810:GOSUB160 

1560 IFD1=1ANDD2=1THENGOSUB1590 

1570 IFD1=D2ANDD1< >1THENGOSUB1620 

1580 RETURN 

1590 SOUND 1 , 400 , 25 : SOUND 1 , 300 , 25 

1 600 SOUND 1 , 200 , 25 : SOUND 1 , 300 , 25 

1610 P(PR, 1 ) =P ( PR, 1)+KT*2:KT=0: RETURN 

1 620 SOUND2 , 600 , 25 : S0UND2 , 400 , 50 

1630 SOUND2,600,25:SOUND2,200,50 
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1640 P (PR, 1>=P<PR,1>+KT:KT=0: RETURN 

1650 WI=PR:GOTQ1300 

1660 REM >>>>>>>>>> CRAPS <<<<<<<<<<<<< 

1670 GOSUB960 

1630 COLOR1,8,5:CHAR1,5,0, "1":CHAR1,15,0, " 

2":CHAR1,25,0, "3-:CHARl,35,0,"4- 

1 690 COLOR 1,4,6: FORT= 1 T07STEP6 : FORN=0TO38 : 

chari,n,t,---:next:next 

1700 COLORl,5,6 

1710 F0RN=1T04 

1720 P(N,1) =100: NEXT 

1 730 FORW= 1 TOP Y : FORN= 1 T04 

1740 COLORl,8,6:CH*=STR*(P(N,l))+" - : CHAR 

1 , N*10-7, 3, CH*: NEXT 

1750 IFP(W, 1X1THEN1920 

1760 BT*=" PLAYER "+STR*<W>+" BET" : COLOR1 , 6 

, 5: CHAR1 , 10, 1 1 , BT* 

1770 CHARl.24,11," ":INPUTBT 

1780 IFBT< 10RBT>P (W, 1 ) THENSOUND1 , 300, 15: 60 

TO1770 

1790 GOSUB810:GOSUB160 

1800 TT=D1+D2 

1810 IFTT=7ORTT=11THEN2060 

1820 IFTT=2ORTT=3ORTT=12THEN2110 

1830 PT=TT:COLOR1,9,5:CHAR1,10,12,-ROLL AG 

AIN ..." 

1840 GETKEYA* 

1850 IFA*<>" "THEN1840 

1860 CHAR1,10,12," -:REM 15 

SPACES 
1870 GOSUB810:GOSUB160 
1880 TT=D1+D2 
1890 IFTT-PTTHEN2060 
1900 IFTT=7THEN2110 
1910 GOTO1830 
1920 NEXTW 
1930 FG=0:CN=0 
1940 FORN=lTOPY 
1950 IFCN=1THEN1980 
1 960 I FP < N , 1 ) >0ANDFG= 1 THENCN= 1 
1 970 I FP ( N , 1 ) >0THENFG= 1 
1980 NEXTN 
1990 IFCN=1THEN1730 
2000 WI=0 
2010 FORN=lTOPY 
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2020 I F W I< >0THEN2040 

2030 IFP<N,1> >0THENWI=N 

2040 NEXTN 

2050 GOTO 1300 

2060 FORT= 1 1 TO 1 2 : FORN=0TO30 : CHAR 1 , N , T , " " : 

NEXT: NEXT 

2070 SOUND 1 , 300 , 25 : SOUND2 , 200 , 25 : SOUND2 , 1 

0,40 

2080 COLOR1,3,4:CHAR1,10,11, "YOU WIN !" 

2090 FORT=1TO550:NEXT 

2100 P(W,1)=P(W,1)+BT:GOTO1920 

2110 FORT=11TO12:FORN=0TO30:CHAR1,N,T, " ": 

NEXT: NEXT 

2120 SOUND 1, 100,25:SOUND1,200,25:SOUND1,40 

0,40 

2130 COLORl,3,4:CHARl, 10, 11, "YOU LOSE !":F 

ORT=1TO550: NEXT 

2140 P<W, 1)=P<W, 1>-BT:GOTO1920 

2 1 50 POKE65298 , 1 96 : POKE65299 , 209 : STOP 

2160 RESTORE2190: FORN=0TO30: READA: POKE882+ 

N, A: NEXT 

2170 FORN=0TO42: READA: POKE828+N, A: NEXT 

2 1 80 FORN=0TO85 : READA : P0KE91 3 +N , A : NEXT : RET 

URN 

2190 DATA160.0, 132,212,132,214, 169,208,133 

,213, 169,56, 133,215,162,3 

2200 DATA177.212, 145,214,200,208,249,230,2 

13,230,215,202, 16,242,96 

2210 DATA169, 10, 133,209, 165,210, 133,208, 16 

2,6, 164,212, 165,211, 145,208 

2220 DATA136, 16, 251 , 202, 48, 5, 32, 88, 3, 176, 2 

39,96,24,165,208, 105,40, 133,208,165 

2230 DATA209, 105,0, 133,209,56,96 

2240 DATA165,214,73, 1,133,214,24, 105,149, 1 

33,208, 169, 14,133,209, 162 

2250 DATA48, 160,6,189,182,3,145,208,202,13 

6, 16,247, 138,48,5,32,88,3,176,237,96 

2260 DATA32,32, 114, 101 , 1 15, 32, 32, 32, 32, 1 1 1 

,32, 113, 112,32 

2270 DATA32, 108, 109,32,32,110,32,32, 106,32 

,32,32, 107,32 

2280 DATA32, 104,32,32,32, 105,32,32,99,100, 

101,102,103,32 

2290 DAT A32 , 95 , 96 , 93 , 97 , 98 , 32 
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A Pair can Break the Bank 

In this computer version of the well known card game the bank starts 
with £500 and each player has £100. One or two players each play 
against the bank and aim to get a total of 2 1 , which is Pontoon. 

One card is first dealt face up to each player and one face down to 
the bank. A bet up to the total cash available may then be placed. The 
next card is dealt and various options are given to each player on their 
turn. 

'S'tick. If the total is 16 or over then pressing 'S' will pass play on. 
T'wist. If another card is required this option may be taken by 
pressing 'T'. 
'B'uy. Used when a hand looks good, to double the stake. 

An ace will be taken to have the best value, i.e. 1 or 11 dependent 
upon the other cards. If at any time the card total exceeds 21 then play 
passes on. When both players have finished, the bank will then play 
its own hand to determine payout. It should be remembered that play 
is between the players and the bank, not against each other. 
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Wins and losses are calculated as follows: highest score is Pontoon 
with two cards, e.g. an Ace and a Queen. The next highest score is a 5- 
card trick, which may be any five cards which do not exceed 21 in 
total. Pontoon with any card permutation is the third highest score. If 
none of the above exist then the highest score wins. Where the bank's 
total equals that of a player then the bank wins. 

The game continues until each player has lost all available cash or 
until the bank is bust. 

10 REM ** PONTOON * ANDY/ JIM/GREG ** 

20 GOSUB2730 : POKES2 f 55 : POKE54 , 55 : POKE56 , 55 

: GOSUB2750Z SYS882: VOLS 

30 DIMPA(52) :DIMAV<52) : DIMPA* (5, 13) :DIMCC( 

3) 

40 DIMCXC4) ,CY«4> ,PC<3,5> ,BC<5) ,NO(4) , PL<2 

) ,MO<2) ,P*<2) 

50 gosub2400 : a=65298 : pokea , peek ( a ) and251 : p 

okea+ 1 , < peek < a+ 1 > and3 ) or56 

60 xx=rnd ( -t x ) : gosub 1 600 

70 mocd=100:mo<2)=100:mc=500 

80 CC<l>=20:CC<2)=33:CC<3>=6:PL(l>=l:PL<2) 

=i:gosubh20 

90 GOSUB 1230 

1 00 SCNCLR : I FNP= 1 THENPL ( 2 > =0 

110 I FPL ( 1 ) =0 ANDPL ( 2 ) =0THEN2630 

1 20 I FPL ( 1 ) =0THENBE ( 1 ) =0 

130 IFPL<2)«0THENBE<2>=0 

140 GOSUB 1660 

150 GOSUB 1660: CX < 1 > =15: CX (2) =28: CY < 1 > =4: CY 

«2)=4:BX=2:BY=4 

160 GOSUB 18 10 

170 FORQ=lTONP 

180 IFPL(Q)=0THEN210 

190 GOSUB 1930 

200 GOSUB2450 

210 NEXT8 

220 CX=BX : C Y=B Y : FORQ= 1 TONC 

230 GOSUB 1 520 : CY=CY+2: CX=CX+1 : NEXT8 

240 GOSUB2200 

250 FORQ= I TONP : I FPL ( 8 ) =0THEN280 

260 CY=CY (8) : CX=CX (8) 

270 CY=CY+2: CX=CX+1 : GOSUB2340: GOSUB2450 

280 NEXTO 

290 CX=BX+l:CY=BY+2:GOSUB1480 
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300 GOSUB 1 320 : GOSUB20 1 

310 REM ** SCORE LOGIC ** 

320 8«3:IFNP«2THEN340 

330 IFSCtl) >21THENP*<1)="L":GOTO500 

340 IFSC(l) >21ANDSC(2) >21THENP*< 1 > ="L" : P* < 

2)="L":GOTOS00 

350 FORW=lTONC 

360 CX=BX:CY=(BY-2)+W*2 

370 PC<3,W)-*BC(W) 

380 GOSUB 1 760 : GOSUB 1310 

390 BX=BX+1 

400 NEXTW 

410 bx=cx:by=cy 

420 FORW=lTONC 

430 pc(3,w)=bc«w) :next 

440 q=3:no(3)=nc:gosub2450 

490 ifsc (3) < 16thengosub1480: elsegoto500 

460 bx=bx+i:by=by+2:pc«3,nc)=bc(nc> :q=3:cx 

=bx : c y=b y : w=nc : gosub 1 760 : gosub 1310 

470 no(3)=nc:gosub2450 

480 i fnc=5then500 : elsegoto450 

490 f=1nt (rnd( 1 )*2) +17: ifsc (3xfthengot046 



500 Q=l 

510 IFPL(Q)=0THEN640 

520 IFSC (8) >21THENP*(Q)="L":GOTO640 

530 IFSC (3 > >21THENP*(8) = "W-:GOTO640 

540 IFNC*5ANDNO (8) -5THENP* < 8 ) = " L " : GOTO640 

550 I FNO ( 8 ) =5THENP* < 8 ) = " W " : GOTO640 

560 IFNC«=5THENP*(8>="L":GOTO640 

570 IFSC ( 3 ) >SC ( 8 ) THENP* ( 8 ) = " L " : GOTO640 

580 IFSC(3)=21ANDNC=2THENP*<8)» B L":GOTO640 

590 I FNO C 8 > =5 ANDNC < 5THENP* < 8 ) = " W " : GOTO640 

600 IFSC (8) =21ANDNO (8) =2THENP* (8) ="W" : GOTO 

640 

610 IFSC<8) >SC<3)THENP*(8)="W":GOTO640 

620 IFSC(8)=SC<3)THENP*(8)="L":GOTO640 

630 IFSC (3) >SCCS) THENP* <8> = "I_":GOTO640 

640 I FNP=2 ANDQ= 1 THENQ=2 : G0T05 1 

650 IFNP=1THEN700 

660 IFP*<1)="L"ANDP*<2)="I_"THEN860 

670 IFP*(1)="W"ANDP*(2)="W"THEN820 

680 IFP*<1)="W"ANDP*<2)="L-THEN930 

690 IFP*(1)=-L"ANDP*(2)="W-THEN980 

700 IFP*(1)="W"THEN740 
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710 IFP*<1>="L"THEN780 

720 END 

730 REM *# PLAYER WIN ** 

740 MC=MC-BE < 1 ) : MO < 1 ) =MO ( 1 ) +BE ( 1 > *2: GOSUB2 

670: IFMC< 1 THEN 1030 

750 6OSUB25S0 

760 GOSUB2550: X=0: Y=23: GOSUB1080: PRINT" tRE 

D > PLAYER WINS " ; : GOSUB2560 : GOTO90 

770 REM ** BANK WIN ** 

780 MC=MC+BE < 1 ) : GO8UB2550: GOSUB2700 

790 X=0:Y»23:GOSUB1080: PRINT" t RED > BANK WIN 

S " 5 : GOSUB2560: IFMO (IX 1THENPL < 1 ) =0 

800 GOTO90 

810 REM ** BOTH WIN #* 

820 MO ( 1 ) =MO ( 1 ) +BE ( 1 ) *2: MO (2) =MO <2) +BE (2) * 

2 : GOSUB2670 : MC=MC - BE < 1 ) - BE < 2 ) 

830 IFMC<1THEN1030 

840 GOSUB2550:GOTO90 

850 REM ** BOTH LOSE ** 

860 MC=MC+BE < 1 ) +BE <2) : GOSUB2550: GOSUB2700: 

IFMO < 1 X 1THENPL < 1 ) =0 

870 IFMO<2X1THENPL<2>*0 

880 I FPL < 1 ) -0ANDPL < 2 ) = 1 THENME*= " t RED > PL A YE 

R 2 LOSES" 

890 I FPL ( 1 ) - 1 ANDPL ( 2 ) =0THENME*= " < RED > PL A YE 

R 1 LOSES" 

900 I FPL ( 1 > « 1 ANDPL < 2 ) = 1 THENME*= " i RED > BOTH 

PLAYERS LOSE" 

910 X-0: Y=23: GOSUB1080: PRINTME*i : GOSUB2560 

: GOTO90 

920 REM ** PLAYER 1 WIN ** 

930 MC*MC+BE<2> : MO< 1 ) =MO < 1 ) +BE < 1 )*2: MC-MC- 

BE ( 1 > : GOSUB2670 

940 IFMO<2X1THENPL<2)=0 

950 IFMCOTHEN1030 

960 GOSUB2550 : X-0 : Y=23 : GOSUB 1080 : PR I NT " I RE 

D > PLAYER 1 WINS";: GOSUB2560 : GOTO90 

970 REM ** PLAYER 2 WIN H 

980 MC=MC+BE(1) : MO <2) -MO (2) +BE (2)*2: MC=MC- 

BE ( 2 ) : GOSUB2670 

990 IFMO(lXlTHENPL<l)-0 

1000 IFMC<1THEN1030 

1010 GOSUB2550: X»0: Y=23: GOSUB 1080: PRINT" tR 

ED > PLAYER 2 W I NS " I : GOSUB2560 : GOTO90 

1020 REM ** BANK BROKE ** 
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1030 gosub2550: x-0: y»23: gosub1080 

1040 print" « red > well done, you broke the ba 

nk" ; : gosub2670: gosub2670: gosub2560 

1050 scnclr:print"player i : "no ( i > ; 

1060 ifnp=2thenprint"player 2: "mo (2) 

1070 gosub2560 : gosub2560 : goto60 

1080 poke208, x: poke209, y: sys828: return 

1090 forn=ito4:fort=ito4:printpa*(n,t> :nex 

t:next 

1100 STOP 

1110 REM ** GENERATE PACK #* 

1120 F0RSU-1T04 

1130 F0RCA-1T013 

1140 PA*<SU,CA)»CHR*(SU+96) 

1150 IFCA<11ANDCA>1THENPA*(SU,CA)=PA*(SU,C 

A ) +CHR* ( 32 ) +CHR* < C A+48 ) 

1160 IFCA«1THENPA*(SU,CA)=PA*<SU,CA)+- A" 

1170 IFCA=11THENPA*(SU,CA)=PA*<SU,CA)+" J" 

1180 IFCA*10THENPA*(SU,CA)=PA*(SU,CA) + "10" 

1190 1FCA=12THENPA*(SU,CA)=PA*(SU,CA)+" Q" 

1200 IFCA>13THENPA«(SU,CA)»PA*(SU,CA)+" K" 

1210 NEXT: NEXT: RETURN 

1220 REM ** SHUFFLE ** 

1230 F0RN=1T052: PA (N) »N: AV (N) »1 : NEXT 

1240 FORA=1TO30 

1250 N1 = INT ( RND ( 1 ) *51 ) +1 : N2=INT (RND ( 1 ) *51 ) 

+ 1 

1260 CC»PA(N1) 

1270 PA(N1)«PA(N2) 

1280 PA(N2)=CC 

1290 next: return 

1300 rem ** draw card ** 

1310 x>cx-i:y«cy:gosubi080 

1320 colori,i:printchr*(iu) ; 

1330 print" €*y>t*yx#yx*y>«*y>"schr*( 112) 

:cl=i:se=0 

1 340 y»c y + 1 : gosub 1 080 : pr i ntchr* (165); 

1350 Z1««LEFT*(PA*(SU,CA) , 1) : IFZ1*=CHR* (98 

) ORZl*=CHR* ( 100) THENCL=3: SE«2 

1360 COLORl.CL, SE: PRINTRIGHT*(PA*(SU, CA) ,2 

>; 

1370 PRINTLEFT*(PA*(SU,CA) , 1) J :COLORl,l:PR 

INT" "}CHR*(167> 

1380 Y-CY+2: GOSUB 1080: PRINTCHR* ( 165) ; : N3*= 
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1 390 PR I NTN3* ; : PR I NTCHR* ( 1 67 ) 

1400 Y=CY+3:GOSUB1080:PRINTCHR*<165) J " "; 

1410 COLORl,CL,SE:PRINTLEFT*<PA*<SU,CA),l) 

J : COLOR 1, l: PRINT" -;CHR*(167) 

1420 Y=CY+4:GOSUB1080:PRINTCHR*<165) ;N3*;c 

HR*(167) 

1430 Y=CY+5:GOSUB1080:SYS828:PRINTCHR*<165 

>i- -; 

1440 COLORl,CI_,SE:PRINTRIGHT*<PA*<SU,CA) ,2 

)j" -J :COLORl,l:PRINTCHR*<167) 

1450 Y=CY+6:GOSUB1080:PRINTCHR*(108) ; 

1460 PRINT-«*PJ<*P>«*PX*P>€*P>"J :PRINTCHR 

*<186) 

1 470 SOUND 1 , 200 , 2 : RETURN 

1480 C=INT<RNDtl)*51)+i 

1490 ifav<c)=0then1480 

1500 av (c ) =0: nc-nc + 1 : bc < nc ) =c : return 

1510 rem #* draw card back ** 

1520 x=cx-i:y=cy:gosubi080:printchr*(iid ; 

1530 PRINT-<*Y>«*Y>€*Y>€*YX*Y>-; :PRINTCHR 

*(112) 

1540 CB*=CHR* ( 165) +"€*+>«*+> <*+ ><*+><*+>"+ 

CHR*(167) 

1550 F0RN=1T05: Y*CY+N: GOSUB1080: PRINTCB*: N 

EXT 

1560 Y=CY+6:GOSUB1080:PRINTCHR*(108) ; 

1570 PRINT" «»P>€*P>€*P>«*PJ«*P>"iCHR*( 186) 

1 580 SOUND 1 , 300 , 2 : RETURN 

1590 REM ** # OF PLAYERS #♦ 

1600 SCNCLR:COLOR4,2 

1610 X=16:Y=8:GOSUB1080: PRINT" €RED>PONTOON 

m 

1620 X=12:Y=14:6OSUB1080: INPUT" <LT BLUM O 

R 2 PLAYERS " i NP 

1630 IFNPO1ANDNPO2THEN1620 

1 640 FORQ= 1 TONP : PL ( Q ) - 1 : NEXT : RETURN 

1650 REM ** DEAL ** 

1660 FORQ=lTONP 

1670 C1»INT(RND<1)*51)+1 

1680 IFAVtCl)=0THEN1670 

1690 av<ci)=0:pc<8, d=ci:next 
1700 pc<e,i)=ci 

1710 C1=INT(RND(1)*51)+1 
1720 IFAV<C1)==0THEN1710 
1730 AV<C1)=0:BC(1)=C1 
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1740 no<d=i:no(2)=i:nc=i:return 

1750 REM ** DECODE CARD ** 

1760 si=pc(q,w> :ct=i:cd=i 

1770 sx=si : si=si-13: ifsi >0thencd=cd+1 : goto 

1770 

1 780 SU=CD : C A=SX : BB < 8 ) =CD : DD < 8 ) =SX : RETURN 

1790 GOTO 1770 

1800 REM ** SCREEN ** 

1810 x=0:y-2:gosubi080: print- cblujbank-, -p 

LAYER 1", 

1820 IFNP=2THENPRINT"PLAYER 2" 

1830 x=i3: y=20:gosubi080: print- <blk>bet: " 

1 840 i fnp=2thenx=26 : y=20 : gosub 1080 : pr i nt " b 

et: " 

1850 x=0: y=21 : gosub 1080: print- <grn> \ - : x=13 

: Y=2i : gosub 1080: print- \ - 

1860 X=26: Y=21 : GOSUB1080: print- \ - 

1870 POKE208, 0: POKE209, 20: SYS828: PRINT" < OR 

> RESERVES " 

1880 POKE208,0:POKE209, 19 :SYS828: PRINT "<LT 

BLU> TOTAL" 
1 890 POKE208 ,13: POKE209 ,19: S YS828 : PR I NT " TO 
TAL" 

1 900 I FNP=2THENPOKE208 , 26 : POKE209 ,19: S YS82 
8: PRINT-TOTAL" 
1910 RETURN 

1920 REM >>>>>>> DRAW HAND <<<<<<<<<<< 
1930 CX=CX(Q) :CY=CY«Q) 
1940 FORW=lTONO(Q) 
1950 GOSUB 1760 
1960 GOSUB 13 10 
1970 CY=CY+2:CX=CX+l:NEXTW 

1980 POKE208,CC(8)-5:POKE209,2l:SYS828:PRI 
NTMO(Q) 
1990 RETURN 

2000 REM * * * STICK * * * 
2010 FORQ=lTONP: IFPL <8)>0THEN2130 
2020 CX(Q)-CX(Q)+2:GOSUB2550 

2030 X=0: Y=23: GOSUB 1080: PRINT" {RED > PLAYER 
-Q"€CUR RTXRVS ON>S<RVS OFF>TICK <RVS ON> 
TfRVS OFFJWIST tRVS ONJ6KRVS OFF>UIT «RVS 
ON>B<RVS OFF>UY"; 

2040 GET A*: IFA*=-S"ORA*="T"ORA*="Q-ORA*="B 
" THEN2050: ELSE2040 
2050 CX=CX<Q) :CY=CY<Q)+(2*NO(Q) ) 
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2060 IFA*="B"THEN2580 

2070 IFA*«"8"THENEND 

2080 IFA*="S" ANDSC (Q) M5THENGOSUB2140: CX=C 

X+l:GOTO2130 

2090 IFA*="T"THENGOSUB2150:CX=CX+l:CX(Q)=C 

X<8)+1 

2100 GOSUB2450 

2110 IFSC(Q) >21THENX=CC(Q) : Y=19: GOSUB1080: 

PR I NT " € RED > BUST " : G0T02 1 30 

2 1 20 I FNO ( Q )< >5THEN2040 

2130 nextq: RETURN 

2140 GOSUB2450:X=CC(e> : Y=19: GOSUB1080: PRIN 

T- "| :PRINT"<CUR LXCUR LXCUR L>"SC<&){ 

: RETURN 

2150 C*INT(RND<1)*51)+1 

2160 IFAV<C)=0THEN2150 

2170 AV(C)=0:NO(Q)=NO(a) +1 

2180 PC<Q,NO(Q) )=C:W=NO(Q) : GOSUB 1 760 : GOSUB 

1310: RETURN 

2190 REN ** PLACE BETS #* 

2200 POKE208 , 1 : POKE209 ,21: S YS828 : PR I NTNC ; : 

FORQ=lTONP 

2210 ZFPL(Q)a0THEN2310 

2220 POKE208 , : POKE209 , 23 : S YS828 : FORN= 1 T03 

8: print" "j:next 

2230 poke208 , : poke209 , 23 : s ys828 : pr i nt " i pu 

r>player -iq;" your bet <grn>(\) "; 

2240 i nputbe ( q ) : i fbe ( q x 1 then2220 

2250 i fbe (q) >no (q) then2220 

2260 poke208, cc c8) : poke209, 20: sys828: print 

BE(Q) 

2270 POKE208 , CC ( Q ) : POKE209 ,21: S YS828 : PR I NT 

H M 

2280 MO(Q)=MO(Q)-BE(Q) 

2290 POKE208, CC (Q) -4: POKE209, 21 : SYS828: PRI 

NT" 

2300 POKE208, CC (8) -5: POKE209, 21 : SYS828: PRI 

NTNO(G) 

2310 NEXT8 

2320 RETURN 

2330 REN >>>>> DEAL ANOTHER CARD <<<<< 

2340 C»INT<RND<1>*51>+1 

2350 IFAV<C)=0THEN2340 

2360 PC<Q,NO<8)+1)»C:AV(C)«0 

2370 NO(Q)=NO(Q)+l 
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2380 W«NO<8) : GOSUB 1760: GOSUB 13 10 

2390 RETURN 

2400 REST0RE24 10 : FORT=0TO23 : RE AD A : POKE 1 486 

4 + T , A : NEXT : RETURN 

2410 DATA16,56, 124,254, 124,56, 16,0 

2420 DAT A56 , 56 , 254 , 254 , 254 , 1 6 , 56 , 

2430 DATA108,254,254,254, 124,56, 16,0 

2440 REM ** PLAYERS SCORE ** 

2450 SC ( Q ) =0 : AC=0 : FORZ= 1 TONO ( 8 ) : W=Z : COLOR 1 

,1 

2460 GOSUB1760:FC*=RIGHT*<PA*(SU, CA) ,2) 

2470 IFFC*=" 8"ORFC*=" J"ORFC*=" K"ORFC*=" 

10"THENSC <Q) =SC (8) +10 

2480 IFFC*=" A"THENAC=AC+l:GOTO2500 

2490 SC<8>=SC(8>+VAL (RIGHT* < PA* <SU,CA> , 1) ) 

2500 NEXTZ:IFAO0THENGOSUB2520 

2510 X=CC(Q) :Y»19:GOSUB1080: PRINT" ":gos 

UB1080:PRINTSC(8) : RETURN 

2520 FORR*lTOAC 

2530 IFSC (8) +11 >21THENSC (8) =SC (8) +1 : ELSESC 

(8)-SC(8)+ll 

2540 NEXT:GOTO2510 

2550 X*0 : Y=23 : GOSUB 1 080 : FOR A= 1 T038 : PR I NT " 

"i : NEXT: RETURN 

2560 FORT= 1 TO3000 : NEXT : RETURN 

2570 REM ** BUY ** 

2580 IFMO(8XBE(8)THEN2100 

2590 BE<a>«BE(8)*2:MO<8)=MO<8>-BE<8)/2:GOS 

UB2150:X»CC<8) :Y=20: GOSUB 1080 

2600 PRINT-<GRNJ " : GOSUB1080: PRINTBE <8> : 

X«X-5: Y*21 : GOSUB 1080: PRINT" " : GOSUB1080 

2610 PRINTMO(O) : CX-CX+1 : CX (8) =CX (8) +1 : GOTO 

2070 

2620 REM ** END GAME ** 

2630 GOSUB2550 : X=0 : Y=23 : GOSUB 1 080 : PR I NT " € P 

UR>ALL PLAYER'S MONEY GONE" 

2640 FORS=100TO500STEP5 

2650 SOUND 1 , S , 2 : NEXT : GOSUB2560 : GOTO60 

2660 REM ** WIN SOUND ** 

2670 FORO-300TO100STEP-10 

2680 SOUND 1,O,10: NEXT : RETURN 

2690 REM ** LOSE SOUND ** 

2700 SOUND 1,200, 20 

2710 SOUND 1,0, 10 

2720 SOUND2, 500, 40: RETURN 
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2730 RESTORE2740 : FORN=0TO8 : REAOA : POKE828+N 

, A: NEXT: RETURN 

2740 DAT A24 , 1 66 , 209 , 1 64 , 208 , 32 , 240 , 255 , 96 

2750 restore2760: forn=0to30: re ada : poke882+ 
n, a: next: return 

2760 DATA160.0, 132, 212, 132, 214, 169, 208, 133 

,213, 169,56, 133,215, 162,3 

2770 DATA177, 212, 145, 214, 200, 208, 249, 230, 2 

13,230,215,202,16,242,96 



14 
Hi-Lo 




Nothing for a Pair 

Here is the computer version of the card game featured in a well 
known TV programme. 

Each player starts with £150 and eleven cards are dealt out face 
down. 

The first is turned over and a bet is requested. The bet can be 
anything up to the player's total holding. When the bet has been 
placed, 'higher' or 'lower' will be requested. If this is correct then the 
bet is paid evens. If the guess is wrong or the card is the same value 
then the stake for that card is lost. This then continues until all the 
cards have been turned and a new game can then be played. 
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10 REM <<< HI-LO * ANDY/JIM/GREG >>> 

20 GOSUB 1910: POKE5Z , 55 : POKE54 , 55 : POKE56 , 55 

: GOSUB 1 930 : SYS882: VOL8 

30 DIMPA(52) , AV<52) ,PA*(5, 13) ,BC(11) 

40 DIMCX(ll) ,CY<11) 

50 HI=0:GA*="HI-I_O":POKE65298, 192:POKE6529 

9, < PEEK < 65299 )AN03)OR56 

60 COLOR0.2 

70 GOSUB 1370 

80 SCNCLR: COLOR0, 2: COLOR4, 2: A*=" " 

90 X=13:Y=17:GOSUB370: PRINT" €REDJHI - LO" 

100 GOSUB390 

110 GOSUB500 

120 GOSUB870 

130 X=10:Y=18ZGOSUB370: PRINT" <blu>stake: " 

140 Y=19:GOSUB370: PRINT" cor>total: " 

150 X=26: Y=17:GOSUB370: PRINT" tLT BLU>HI-SC 

ORE" 

160 TT=150 

170 BE=0 

180 GOSUB 1030 

190 GOSUB 1140 

200 C=l 

210 CX=CX(C) :CY=CY(C) 

220 GOSUB 1030 

230 IFC=11THEN1450 

240 PCd, i)=BC(C) :q=i:w=i 

250 GOSUB970:GOSUB580 

260 GOSUB 1080 

270 GOSUB 12 10 

280 GOSUB 1030 

290 cx=cx<c+1> :cy=cy<c+1> 
300 pc(1,1)=bc(c+1) :cr=ca 
310 q=i:w=i:gosub970 

320 GOSUB580 

330 IFCA>CRANDA*="H"THEN1330:GOTO210 

340 IFCA<CRANDA*="L"THEN1330:GOTO210 

350 GOTO 1280 

360 GOTO210 

370 POKE208 , X : POKE209 , Y : S YS828 : RETURN 

380 REM *# GENERATE PACK ** 
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390 F0RSU=1T04 

400 F0RCA=1T013 

410 PA*(SU,CA)=CHR*(SU+96) 

420 IFCA< 1 l ANDCAMTHENPA* <SU, CA) =PA* <SU, CA 

) +CHR*<32) +CHR*(CA+48) 

430 IFCA=1THENPA*<SU,CA)=PA*(SU,CA)+" A" 

440 ifca=11thenpa*<su, ca) =pa* (su, ca) +" j" 

450 ifca=10thenpa*<su,ca)=pa*<su,ca)+"10" 

460 ifca=12thenpa*(su, ca) =pa*<su, ca) +" q" 

470 ifca=13thenpa*<su,ca)=pa*(su,ca)+" k" 

480 next: next: return 

490 rem ** shuffle ** 

500 forn=ito52:pa<N)=n:av<N)=i:next 

510 FORA=1TO30 

520 N1=INT (RND ( 1 ) *51 ) +1 : N2=INT (RND < 1 ) *51 ) + 

1 

530 CC=PA<N1) 

540 PA(N1)=PA<N2) 

550 PACN2)=CC 

560 NEXT: RETURN 

570 REM ** DRAW CARD ** 

580 X=C X - 1 : Y=C Y : GOSUB370 

590 COLOR1, 1:PRINTCHR*<111) 3 

600 PRINT"C*Y}€*Y>t*Y>C*Y>C*Y>"iCHR»(112) : 

CL=l:SE=0 

610 Y=CY+l:GOSUB370:PRINTCHR*(165) ; 

620 Z1*=LEFT*(PA*<SU, CA) , 1) : IFZl*=CHR*t98) 

0RZ1*=CHR* < 100) THENCL=3: SE=2 

630 COLORl,CL,SE:PRINTRIGHT*(PA*(SU,CA) ,2) 

* 

1 

640 PRINTLEFT*(PA*(SU,CA) ,1) % Z COLOR 1 , 1 : PRI 

NT" ";CHR*<167) 

650 Y=CY+2:GOSUB370:PRINTCHR*(165) I :N3*=" 

660 PRINTN3*? : PRI NTCHR*(1 67) 

670 Y=CY+3:GOSUB370:PRINTCHR*(165) i " "5 

680 COLOR 1,CL, SE: PRINTLEFT* (PA* <SU, CA) , 1) 5 

: COLOR 1, l: PRINT- -;CHR*(167) 

690 Y=C Y + 4 : GOSUB370 : PR I NTCHR* < 1 65 ) J N3* ; CHR 

*<167) 

700 Y=CY+5:GOSUB370:SYS828:PRINTCHR«(165) ; 

* "s 

710 COLORl,CL,SE:PRINTRIGHT*<PA*(SU,CA) ,2) 

;" "j : color l, i:printchr*<167) 

720 Y=CY+6:GOSUB370:PRINTCHR*<108) ; 
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730 PRINT"<«P»C*P>««P1€«P>C«P»"I :PRINTCHR» 

(186) • 

740 SOUND 1 , 200 , 2 : RETURN 

750 C=INT(RND(1)*51)+1 

76,0 IFAV(C)=0THEN750 

770 AV <C ) =0: NC=NC + 1 : BC <NC ) =C : RETURN 

780 REM ** DRAW CARD BACK ** 

790 X=CX-1 : Y=CY: GOSUB370Z PRINTCHR* ( 1 1 1 ) i 

800 PRINT"<*Y>t*Y>«*YX*YM*Y>"J :PRINTCHR* 

(112) 

810 CB*»CHR* ( 165) +"<*+><*+><*+> t*+ ><*+>" +C 

HR*(167) 

820 F0RN=1T05: Y-CY+N: GOSUB370: PRINTCB*: NEX 

T 

830 Y»CY+6:6OSUB370: PRINTCHR* (108) ; 

840 PRINT" t*P>t*PM*P>«*PM*P>"SCHR*( 186) 

850 SOUND 1,300, 2: RETURN 

860 REM >>>>>>>> DRAW CARDS <<<<<<<<< 

870 RESTORE930:FORA=1TO11 

880 READCX(A) ,CY(A) 

890 CX=CX ( A ) : C Y»C Y ( A ) 

900 GOSUB790 

910 NEXTA 

920 RETURN 

930 DATA1, 0,9, 0,17,0,25,0,33,0 

940 DATA1, 8, 9, 8, 17,8,25,8,33,8 

950 DAT A 1,16 

960 REM >>>>>> DECODE CARD <<<<<<<< 

970 si«pc (Q, W) :ct=i:cd*i 

980 SX=Sl:SI=SI-13:IFSI>0THENCD=CD+l:GOTO9 

80 

990 SU-=CD:CA=SX: RETURN 

1000 GOTO980 

1010 RETURN 

1020 REM >>> PRINT HI TOTAL BET <<< 

1030 COLOR1 ,6,2: X=16: Y*18: GOSUB370: PRINT" 

- : GOSUB370: PRINTBEl 
1040 Y»19:GOSUB370: PRINT" ":GOSUB370:P 
RINTTT 

1050 X=27:Y-18:GOSUB370: PRINT" -:gosub 
370: PR I NTH I 
1060 RETURN 

1070 REM >>>>>>>> PLACE BETS <<<<<<<<< 
1080 X=14:Y=22:GOSUB370:PRINT"<RED>YOU HAV 
E \"|TT 
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1090 Y=23:GOSUB370:INPUT"CBLK>WHAT IS YOUR 

BET "JBE 
1 100 IFBE< lORBE >TTTHEN1080 
1110 TT=TT-BE:GOSUB1030 
1120 RETURN 

1130 REM >>>>>>> GENERATE CARDS <<<<<<< 
1140 FORA=lTOH 
1150 C=INT<RND(1>*51>+1 
1160 IFAV<C)=0THEN1150 
1170 BC(A)=PA<C) 
1180 AV<C)=0 
1190 NEXTA: RETURN 

1200 REM >>>>>>>> HIGHER LOWER <<<<<<<< 
1210 X«=14:Y=23:GOSUB370:FORB=1TO25: PRINT" 

" ; : NEXTB 

1 220 X= 1 4 : Y=22 : GOSUB370 : FORA= 1 TO20 : PR I NT " 

" ; : nexta 

1 230 X= 1 4 : Y=23 : GOSUB370 : PR I NT " I BRN > H I GHER 

/ LOWER ' 

1240 GET A* 

1250 IFA*O"H-ANDA*O-L"THEN1240 

1260 RETURN 

1270 REM >>>>>>>>>>> LOSE <<<<<<<<<<<< 

1280 SOUND 1,300 ,20: SOUND 1,0, 10 

1290 SOUND 1,500, 40 

1300 IFTT<1THEN1490 

1310 C=C+l:GOTO210 

1320 REM >>>>>>>>>>>> WIN <<<<<<<<<<<<< 

1330 FORS=500TO300STEP-10 

1340 SOUNDl,S,2:NEXTS 

1350 TT=TT+BE*2 

1360 C=C+l:GOTO210 

1 370 RESTORE 1 380 : FORT=0TO23 : RE AD A : POKE 1486 

4 + T , A : NEXT : RETURN 

1380 DATA16,56, 124,254,124,56,16,0 

1390 DATA56,56,254,254,254, 16,56,0 

1400 DATA108,254,254,254, 124,56, 16,0 

1410 REM 

1420 RETURN 

1 430 FORT= 1 TO3000 : NEXT : RETURN 

1440 REM >>>>>>>> HIGH SCORES <<<<<<<<< 

1450 IFTT>HITHENHI=TT 

1460 SC=TT:GOSUB1580 

1470 GOTO80 

1480 REM >>>>>>> NO MONEY LEFT <<<<<<<< 
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1 490 X= 1 4 : Y=23 : GOSUB370 : FOR A= 1 T025 : PR I NT " 
" i : NEXTA 

1500 X=14:Y=23:GOSUB370: PRINT" { PUR >RUN OUT 
OF MONEY ! " 

1510 gosub1430:goto80 
1520 le=0:ri=0:fi=0 

1530 KS=PEEK<198> 

1540 IFKS=10THENLE=1 

1550 IFKS=13THENRI=1 

1560 IFKS=60THENFI=1 

1570 RETURN 

1580 RR=0:GOSUB1870 

1590 F0RA=5T01STEP-1 

1600 IFSC>SC(A)ANDSC<SC<A-1>THENRR=A 

1610 NEXT 

1620 IFRR=0THEN1850 

1 630 FORA=4TORRSTEP- 1 : NA* ( A+ 1 ) =NA* ( A ) : SC ( A 

+1)=SC<A) :next 

1640 NA*(RR)=-":SC(RR)=SC 

1650 GOSUB1870 

1660 X==6:Y»12:GOSUB370: PRINT" tLT BLU> PLEAS 

E ENTER YOUR NAME " 

1670 N*="ABCDEFGHIJKLMNOPQRSTUVWXYZ. J" 

1 680 X=4 : Y» 1 4 : GOSUB370 : PR I NTN* : XX*4 

1690 X=0:Y=16:GOSUB370: PRINT" 3 » 

END. " 

1700 X=XX:Y=15:GOSUB370: PRINT"-" 

1710 X=9:Y=2l:PRINTNA*IRR) 

1720 GOSUB1520 

1 730 I FLE= 1 ANOXX >4THENX«XX : Y= 1 5 : GOSUB370 : P 

RINT" -:xx=xx-i 

1740 I FR I = 1 ANDXX < 32THENX=XX : Y= 1 5 : GOSUB370 : 

PRINT" ":XX=XX+1 

1750 IFFI=1ANDMID*(N*, (XX-3) , 1 ) «» 3 "THEN179 



1760 IFFI=1THENNA*(RR)=NA*(RR)+MID*(N*, (XX 

-3) ,1) 

1 770 I FLEN ( N A* < RR ) ) = 1 5THEN 1 790 

1780 GOTO 1700 

1790 GOSUB1870 

1800 X=7:Y»16:GOSUB370:PRINT"«BLK>PRESS SP 

ACE TO PLAY AGAIN. " 

1810 KS=PEEK(198) 

1820 IFKSO60THEN1810 

1830 GET A* 
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1840 FORT=0TO8:POKE1319+T,0: NEXT: RETURN 

1850 IFSC<SC(1)THEN1790 

1860 RR=l: GOTO 1630 

1 870 SCNCLR : X=6 : Y= 1 : GOSUB370 : PR I NT " { PUR > H I 

GH SCORES FOR "GA* 

1880 C0L0R1,3,2:X=3:F0RA=1T05 

1890 Y=A+4:GOSUB370:PRINTAi " ";NA*(A) ;T 

AB(30)SC(A) 

1900 next: return 

1910 restore 1 920 : forn=0to8 : re ada : poke828 + n 

, a: next: return 

1920 DATA24, 166,209, 164,208,32,240,255,96 

1 930 RESTORE 1 940 : FORN=0TO30 : RE AD A : POKE882 + 

N , A : NEXT : RETURN 

1940 DAT Al 60,0, 132,212, 132,214,169,208, 133 

,213,169,56, 133,215,162,3 

1950 DATA177, 212, 145, 214, 200, 208, 249, 230, 2 

13, 230, 215, 202, 16, 242, 96 



15 
Concentration 




Find the Pair 

This deceptively simple game requires a good memory and of course 
great concentration. 

Each player has one turn to select two cards. If they match then 
they score and are removed from the screen. The next player then 
tries to find a pair until all the cards are gone. The winner is the one 
who correctly matched the most pairs. 

In some card versions of this game a successful player is allowed to 
turn over another two cards. However, the game plays better in this 
12-card version if one player cannot clear the decks so quickly. 

Here is a money raising tip. Those readers who are involved in 
raising cash for charities or school funds may like to consider how the 
micro can help. Concentration could be used as a fund raiser, just as 
many other programs featured in the book can. Simply set up your 
computer and charge visitors for the privilege of pressing the buttons! 
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10 REM << CONCENTRATION ANDY/ JIM/ GREG >> 

20 GOSUB 1 830 : POKE52 , 55 : POKE54 , 55 : POKE56 , 55 

: GOSUB 1 850 : SYS882! V0L8 

30 POKE65298 , 1 92 : POKE65299 , < PEEK < 65299 ) AND 

3)OR56 

40 CLR:XX=RND<-TI> 

50 DIMPA*(5, 13) ,CC<3) ,SC(2) 

60 DIMPA(52) ,AV<52> 

70 DIMCX(12) ,CY<12> 

80 DIMCA(12) ,BC<12) 

90 DIMPC<1,2) ,AC(12) 

100 GOSUB 1690 

110 SCNCLR:GOSUB270 

120 COLOR0,2:COLOR4,2 

130 SC(1)=0:SC(2)=0 

140 GOSUB270 

150 GOSUB380 

160 GOSUB800 

170 GOSUB990 

180 F0RA=1T012: AC(A)=l:NEXTA 

190 P«l 

200 GOSUB1440 

210 GOSUB 11 70 

220 GOTO 1330 

230 I FP= 1 THENP=2 : ELSEP= 1 

240 GOTO200 

250 POKE208 , X : POKE209 , Y : SYS828 : RETURN 

260 REM ** GENERATE PACK ** 

270 F0RSU=1T04 

280 F0RCA=1T013 

290 PA*(SU,CA)=CHR*(SU+96) 

300 IFCA<11ANDCA>1THENPA*(SU,CA)=PA*(SU,CA 

>+CHR*(32)+CHR*<CA+48> 

310 IFCA=1THENPA*(SU,CA)=PA*(SU,CA)+- A" 

320 IFCA=11THENPA*(SU,CA)=PA*(SU,CA)+- J" 

330 IFCA=10THENPA* <SU f CA) =PA* <SU, CA) + " 10" 

340 IFCA=12THENPA*(SU,CA)=PA*<SU,CA)+" Q" 

350 IFCA=13THENPA*(SU,CA)=PA*<SU,CA)+" K" 

360 NEXT: NEXT: RETURN 

370 REM ** SHUFFLE ** 

380 F0RN=1T052: PA <N) =N: AV (N) =1 : NEXT 

390 FORA=1TO30 

400 N1 = INT (RND ( 1 ) *51 ) +1 : N2=INT (RND ( 1 > *51 ) + 

1 

410 CC=PA(N1) 
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420 PA(N1)*PA(N2) 

430 PA(N2)**CC 

440 NEXT: RETURN 

450 REM ** DRAW CARD ** 

460 X=CX-l:Y=CY:GOSUB250 

470 COLORl,l:PRINTCHR*(lll) ; 

480 PRINT"C*Y>t*Y>C#YM*YM*Y>";CHR*(112) : 

CL=l:SE=0 

490 Y=CY+l:GOSUB250:PRI NTCHR* (165) ; 

500 Z1*=*LEFT*(PA*(SU,CA) ,1) : IFZ1*=CHR* (98) 

ORZl*=CHR* ( 100) THENCL=3: SE=2 

510 COI_ORl,CL,SE:PRINTRIGHT*(PA*(SU,CA) ,2) 

* 
* 

520 PRINTLEFT*(PA*(SU,CA) ,1) ; : COLOR 1 , 1 : PRI 

NT" ";CHR*(167) 

530 Y=CY+2:GOSUB250:PRINTCHR*(165) i :N3*=" 

m 

540 PR I NTN3* ; : PR I NTCHR* ( 1 67 ) 

550 Y-CY+3: GOSUB250: PR I NTCHR* < 165) i " " i 

560 COLORl,CL,SE:PRINTLEFT*(PA*(SU,CA) , 1) ; 

:COLORl, l: PRINT" a *CHR*(167) 

570 Y=CY+4:GOSUB250:PRINTCHR*(165) ;n3*;chr 

*(167) 

580 Y-C Y +5 : GOSUB250 : S YS828 : PR X NTCHR* (165); 

m a ■ 

» 

590 COLORl,CL,SE:PRINTRIGHT*(PA*(SU,CA) ,2) 

J" "J :COLORl, l:PRINTCHR*(167) 

600 Y=CY+6:GOSUB250:PRINTCHR*(108) J 

610 PRINT" {*P>C*P>«*P>C*P>{*P>"i : PR I NTCHR* 

(186) 

620 SOUND 1 , 200 , 2 : RETURN 

630 C=INT(RND(1)*51)+1 

640 IFAV(C)=0THEN630 

650 AV (C ) =0: NC=NC+1 : BC (NC ) =C : RETURN 

660 REM ** DRAW CARD BACK ** 

670 COLOR1 , 7 f 2: X=CX-1 : Y=CY: GOSUB250: PRINTC 

HR* (ill); 

680 PRINT"<*Y><*Y>{*YM*Y>€*Y>"; :PRINTCHR* 

(112) 

690 CB*=CHR* (165) +"€*+>«*+ J <*+>«*+>€*+> "+C 

HR*(167) 

700 F0RN=1T05: Y=CY+N: GOSUB250: PRINTCB*: NEX 

T 

710 Y-CY+6:GOSUB250:PRINTCHR*(108) ; 

720 PRINT" <*P>€*P>€*P>t*P>t*P>" ;CHR*(186) 
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730 SOUND 1,300, 2: RETURN 

740 REM >>>>>>>> ERASE CARD <<<<<<<<<< 

750 X=CX- 1 : Y=C Y : GOSUB250 

760 F0RYD=1T07 

770 Y=CY+YD-l:6OSUB250: PRINT" 

780 NEXT YD: RETURN 

790 REM >>>>>> GENERATE CARDS <<<<<<<< 

800 RESTORE940:FORA=1TO12 

810 CA<A)=l: NEXTA 

820 F0RA=1T012STEP2 

830 READC1,C2 

840 C=INT(RND<1)*12)+1 

850 IFCA(C)=0THEN840 

860 BC<C)=C1:CA<C)=0 

870 C=INT(RND(1)*12)+1 

880 IFCA<C)=0THEN870 

890 BC<C)=C2:CA(C)=0 

900 NEXTA 

910 F0RA-1T012 

920 READCX(A) ,CY<A) 

930 NEXTA: RETURN 

940 DATA1, 14,2, 15,3, 16,4, 17,5, 18,6, 19 

950 DATA1, 0,9,0, 17,0,25,0 

960 DATA1,8,9,8,17,8,25,8 

970 DATA1, 16,9, 16, 17, 16,25,16 

980 REM >>>>>>> DRAW SCREEN <<<<<<<<<< 

990 COLOR 1,7, 2 

1000 F0RA-1T012 

1010 CX=CX(A) :CY=CY(A) 

1020 GOSUB670 

1030 X=CX(A)+l: Y=CY(A)+7:GOSUB250:PRINTA 

1040 NEXTA 

1050 X=32: Y=2:GOSUB250: PRINT" tLT BLU> SCORE 

1" 
1060 Y=5:GOSUB250:PRINT"{BLK>SCORE 2" 
1070 X=3l:Y=14:GOSUB250: PRINT" <LT BLU>PLAY 

er l"; 

1080 Y= 16: GOSUB250: PRINT "CBLKJ PLAYER 2" 
1090 RETURN 

1100 rem >>>>>> decode card <<<<<<<< 

1110 si=pc(Q,w) :ct=i:cd=i 

1120 sx=si:si=si-13: ifsi>0Thencd=cd+i:goto 

1120 

1130 su=cd:ca=sx: RETURN 

1140 GOTO1120 
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1150 RETURN 

1160 rem >>>>>>> input number <<<<<<<< 

1170 x=0:y=24:gosubz50:fora=ito30:print" ■ 

; : NEXT 

1180 gosub250: print" i red > enter first no?" i 

:gosubi760:ni=u 

1190 IFNK1ORN1M2THEN1170 
1200 IFAC<N1)«0THEN1180 

1210 PC(i,i)=BC(Ni) :q=i:w=i 

1220 GOSUB1110:CX=CX(N1> :CY=CY<N1) 

1230 GOSUB460 

1240 X=0: Y=24:GOSUB250:FORA=1TO30:PRINT" " 

; : NEXT 

1250 X=0:Y=24:GOSUB250:PRINT"{RED>NOW ente 

R SECOND NO?"J :GOSUB1760:N2=U 

1260 IFN2<1ORN2>12THEN1240 

1 270 I F AC ( N2 ) =0THEN 1 240 

1280 IFN1=N2THEN1240 

1290 PC<1, 2)=BCCN2) :Q=l:W=2 

1300 gosub1110:cx=cx<n2) :cy=cy<n2) 

1310 gosub460: return 

1320 rem >>>>>>>> check pair <<<<<<<<< 

1330 q=i:w=i:gosubiii0 

1340 co=ca:q=i:w=2:gosubih0 

1350 CP=CA 

1360 IFCO=CPTHEN1500 

1370 X=0:Y=24:GOSUB250:FORA=1TO30:PRINT" " 

; : next 

1380 GOSUB250:PRINT"COR>CARDS do not match 

m m 

f 
1390 GOSUB1750 
1400 CX=CX(N1) :CY=CY<N1) 
1410 GOSUB670:CX=CX(N2) :CY=CY<N2) 
1420 GOSUB670:GOTO230 

1430 REM >>>>>>> PRINT SCORES <<<<<<<<< 
1440 COLOR1 ,6,2: X=32: Y-3: GOSUB250: PRINTSC ( 
1) 

1450 Y=6:GOSUB250: PRINTSC (2) 

1460 IFP=1THENP1*="<RVS ONMLT BLU> PLAYER 
ltRVS OFF>":P2*="<BLK> PLAYER 2" 
1470 IFP=2THENP1*«"€LT BLU>PLAYER 1":P2*»" 
CBLKXRVS ON > PLAYER 2tRVS OFF>" 
1480 X=3l: Y=14:GOSUB250:PRINTP1*5 :y-16:gos 
ub250:printp2*; : return 
1490 rem >>>>>>> pair found <<<<<<<<<<< 
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1500 X=0: Y=24:GOSUB250:FORA=1TO30:PRINT" " 

; : next 

1510 GOSUB250:PRINT"CRED>PAIR found-; 

1520 AC(N1)=0:AC<N2)=0 

1530 FORS=500TO100STEP-10: SOUND 1 , S, 1 : NEXTS 

1540 GOSUB1750 

1550 CX=CX(N1) :CY=CY(N1> 

1560 GOSUB750:CX=CX(N2) :CY=CY(N2> 

1570 GOSUB750:SC(P)-SC<P>+5 

1580 IFSC<1)+SC(2)=30THEN1610 

1590 GOTO230 

1600 REM >>>>>>>> END OF GAME <<<<<<<<< 

1610 SCNCLR:COLORl,3,2 

1620 X=3:Y=2:GOSUB250:PRINT"PLAYER 1 SCORE 

: "SC<1> 

1630 Y=4:GOSUB250:PRINT"PLAYER 2 score: "SC 

(2) 

1640 X=7:Y=ll:GOSUB250:PRINT"{BLK>PRESS sp 

ACE TO PLAY AGAIN" 

1650 X=7:Y»13:GOSUB250: PRINT" <LT BLU>OR *Q 

' TO SUIT. " 

1660 GETA*:IFA*=" "THEN40 

1670 IFA*«"Q"THENSYS32768 

1680 GOTO 1660 

1 690 RESTORE 1 700 : FORT=0TO23 : RE ADA : POKE 1 486 

4 + T , A : NEXT : RETURN 

1700 DATA16, 56, 124,254, 124,56, 16,0 

1710 DATA56, 56, 254, 254, 254, 16,56,0 

1720 DATA108,254,254,254, 124,56, 16,0 

1730 REM 

1740 RETURN 

1750 FORT=1TO3000: NEXT: RETURN 

1760 D*="" 

1770 GETKEYA* 

1780 1FASC(A*)=13THEN1800 

1790 D*=D*+A*: PRINT A*; :GOTO1770 

1800 U=VAL CD*) : IFU< 1ORU>12THEN1820 

1810 RETURN 

1820 FORE=lTOLEN(D*> :PRINT"tCUR L>";:NEXT: 

GOTO 1760 

1 830 RESTORE 1 840 : FORN=0TO8 : RE AD A : P0KE828 +N 

, A: NEXT: RETURN 

1840 DATA24, 166,209,164,208,32,240,255,96 

1 850 RESTORE 1 860 : FORN=0TO30 : RE ADA : POKE882 + 

N, A: NEXT: RETURN 



Concentration 99 

1860 DATA160,0, 132,212, 132,214, 169,208,133 
,213, 169,56,133,215, 162,3 

1870 DATA177,212, 145,214,200,208,249,230,2 
13, 230, 215, 202, 16, 242, 96 
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Micro Mind 




Colour Your Reasoning 

Versions of this well known and widely enjoyed game can be found 
on all microcomputers. In writing this implementation of the game, 
care has been taken to produce a good looking layout that makes 
play enjoyable. 

The object of the game is to work out what the secret colour 
combination is, by placing coloured markers in a row. 

The Commodore 16 will then indicate how accurate the placing 
was: 

The right colour, right place is indicated by a HEART. 
The wrong colour, wrong place is indicated by a CROSS. 
The right colour, wrong place is indicated by an ASTERISK. 

S and A are used to select the colours by moving an arrow to the 
colour required. The space bar then places it. The next ones are then 
entered in the same manner until the row is full and the result is 
shown. 
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There are ten chances to guess the cofrect sequence before each 
game ends. The computer will then display the correct combination 
at the top of the screen. 

The game can be played competitively by each person aiming to 
achieve a lower number of lines to work out the combinations. 

10 REM >>>>>>>>MICRO MIND<<<<<<< 

20 rem >>>>>>greg/andy/jim<<<<<< 

30 fort» 1 t06 : re adp ( t ) , s ( t ) : next : vols : color 

0, 1 : color4 , 1 : graphic 1 

40 scnclr:gosubi70:g=25:h=»24:z*=" -:fora= 

1T04:X=(A*4)-2:B*«"< a Q>€ a W>- 

50 CHAR 1 , X , 2 , Z* , 1 : NEXT : FOR Y=4T022STEP2 : FOR 

X=2TO 1 6STEP4 : CHAR 1 , X , Y , B* : NEXTX , Y 

60 L=l:GOSUB90 

70 GOSUB100:GOSUB190: IFA*="YYYY"THEN300 

80 L=L + 1 : I FL= 1 1 THEN290 : ELSEGOTO70 

90 F0R0=1T04: N=INT (RND < 1 > *6> +1 : N (O) =N: NEXT 

: RETURN 

100 F0RC=1T06: COLOR 1,P(C) ,S(C) : X=C+24: CHAR 

i,x,4," ",i:next:q=2 

110 COLORl,2,7:CHARl,G, 5, """ : FORT=1TO20: NE 

xt:chari,g,5, " " 

120 gosub350: ife=1andg>25theng=g-1 

130 ifr-1andg<30theng=g+1 : elseiff*1then150 

140 GOTO110 

150 U=G-24:COLORl,P(U> ,S(U) : CHAR1 , Q, L*2+2, 

"{ a q>":q=q+4:U(Q/4)=u 

1 60 i fq= 1 8thenreturn : elsegoto 1 1 

170 restore380:color1,2,7:char1,4,0, "micro 

MIND" 

1 80 DRAW 1 , 200 , 1 89 : FORT= 1 T043 : RE ADX f Y : DR AWT 

OX , Y : NEXT : RETURN 

190 A*="":Q=3:C0L0R1,9,5:F0RZ=1T04 

200 IFU(Z)=N(Z)THENCHARl,Q,L*2+2, "«"S>":A* 

«A*+ " Y " : GOTO220 

210 CHARl,Q,L*2+2, " i A V> " : A*=A*+"X" 

220 q=q+4:next:q=3:s=»0:forz=ito4 

230 ifmid*<a* f z, 1)="y"thensound1,100,10:go 

TO270 

240 F0RW«1T04 

250 IFU(Z>»N(W)ANDMID*<A*,W,1)="X"THENCHAR 

1 , Q, L*2+2, "*" : GOSUB280 

260 NEXT : I FS=0THENSOUND 1 , 450 , 10 

270 Q=Q+4: SOUND 1,0, 5: NEXT: RETURN 
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280 SOUND 1, 300, 10: S=l: RETURN 

290 M*="SORRY":GOTO310 

300 M*="DID IT IN "+STR*(L)+» TRYS" 

310 F0RA=1T04:M=N(A) :COLORl,P(M) ,S(M) :X=(A 

*4>-2:CHARl,X,2,Z*, 1 : NEXT 

320 CHAR1,23,6,M* 

330 CHAR1,24,15, "TRY AGAIN" 

340 gosub350: iff=0then340: elsegoto40 

350 e=0 : r=0 : f=0 : k=peek < i 98 > : i fk= 10thene= i 

360 I FK= 1 3THENR= 1 : ELSE I FK=60THENF= 1 

370 RETURN: DATA3, 2, 5, 4, 6, 3, 8, 7, 4, 5, 7, 3 

380 DATA206, 177,202, 173, 192, 172, 189, 168, 18 

9, 166, 193, 159, 189, 156, 187, 152, 190 

390 DATA150, 188, 148, 186, 146, 188, 143, 190, 14 

1 , 191 , 138, 191 , 135, 189, 133, 179, 133 

400 DATA176, 130, 176, 128, 178, 126, 188, 114, 19 

0,106,192,97,200,87,212,79,230,75 

410 DATA238, 74, 250, 77, 262, 81 , 271 , 90, 276, 98 

, 278, 108, 278, 114, 276, 122, 275, 132 

420 DATA272, 142, 270, 150, 267, 160, 264, 164, 26 

0, 168,254, 174,255, 177,270, 189 



? 
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O'Grady Says 




O'Grady Says: Type This In 

This is an implementation of the well known game, sometimes also 
known as Simon Says. 

This program can be most helpful in teaching the concept of left 
and right, but be warned, as it stands the program means its left or 
right, not yours! 

You start each game with just one point. The speech bubble will 
then announce the action required together with the name of the 
person giving the order. If O'Grady says 'do it' then you do it fast! If 
O'Riley says 'do it' then you do not\ The little chap at the top follows 
all commands. 

There are four possible actions which you may be asked to do. Up 
and Down are actioned using the up or down cursor as normal. Left 
or Right are obtained using the respective key in relation to the on- 
screen character. This means that pressing the left cursor will actually 
lift up the chap's right arm. 

This swap has been incorporated to provide more of a mental 
challenge. It can be quite a struggle to work out which is left, which is 
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right and of course whether O'Grady said 'do it'. Play the game and 
you will see what I mean. 

Speedy mental processing is important in O'Grady Says or lack of 
action may be taken as intentional. This could mean that you lose 
points or, if you are lucky, doing nothing could be just the right 
response. 

10 REM >>>>> O'GRADY SAYS <<<<< 
20 REM>>>>>>DAVID/JIM/ISSI<<<<< 
30 PR I NTCHR* ( 8 ) : VOL8 : GOSUB660 
40 POKE 1344,0: REM TURN OFF KEY REPEAT 
50 COLOR0, 1 : COLOR4, 1 
60 SC=l: GOTO 180 

70 GOSUB770 : COLOR 1,3, 5: CHAR 1,30,0, A* <PO> :P 
OKE3 1 43 , 34 : RETURN 

80 GOSUB780: COLOR 1, 3, 5! CHAR1 , 30, 13, A*(BM) : 
POKE3663, 34: RETURN 

90 COLORl,2,6:PRINT"«CLRXCUR DNXCUR RTX 
CUR RTXCUR RT> i A UJ i A *X"*X A *J i A *X A *J «"* 
> i A *> t "*> i A *> i ~*X A *> i A *> I "*> I "*> i "*> i ~ I > " 
100 F0RR=1T07: PRINT- 1 CUR RTMCUR RTMCUR R 
T}{*-} « A ->":NEXT 

110 PRINT"tCUR RTXCUR RTXCUR RTX"NX"*> 
{ A *X A *X~*X A *X~*X A *X A *X A *X~*X A *X~ 
*X ~*X A *> t A *> t A KJ " 

120 PRINT"<CUR RTXCUR RTX"NXCUR DNXCUR 
LXCUR L){ A N){CUR DNXCUR DNXCUR LX A MX 
CUR DNX^MXCUR DN> I A MX A *X A *X A *> i "*X ~* 
} t "*X A *> { A *X A *> € "*X "*X A *> € "*> { A *> t "*> € 
"D" 
130 F0RR=1T07: PRINT" €CUR RTXCUR RTXCUR R 

T){ A -} < a ->-:next 

140 PRINT" «CUR RTXCUR RTXCUR RTX"JX A *> 

t "*X "*> € A *> « A *X ~*X "*> i A *X "* J { "*> i "*X A 

*> < "*> € A *X A *> i A KXHOME> " 

150 CHAR1,9,18, "SCORE" 

160 BM=2:GOSUB80 

170 RETURN 

180 GOSUB660:GOSUB90 

190 REM >>>>> MAIN LOOP <<<<< 

200 I FRND ( 8 ) > . 6THENOG=2 : ELSEOG= 1 

210 TU-TU+1 

220 PO=INT(RND(8)*4)+l 

230 GOSUB760 
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240 COLOR 1,2, 6 

250 I FOG= 1 THENCH AR 1 , 4 , 3 , " O * GRADY SAYS " 

260 IFOG=2THENCHARl,4,3, "O'RILEY SAYS " 

270 GOSUB70 

280 COLOR 1,2, 7 

290 IFPO=lTHENCHARl,4,5, "MOVE UP" 

300 IFPO=2THENCHARl,4,5, "MOVE DOWN" 

310 IFPO=3THENCHARl,4,5, "UP RIGHT" 

320 IFPO=4THENCHARl,4,5, "UP LEFT" 

330 T=0:BM=0 

340 GETKE* 

350 IFKE*="tCUR UP> "THENBM=1 : GOTO400 

360 IFKE*="<CUR DN> "THENBM=2: GOTO400 

370 IFKE*="€CUR RT> "THENBM=3: GOTO400 

380 IFKE*="«CUR L> "THENBM=4: GOTO400 

390 T=T+l: IFT=40THEN450:ELSE340 

400 GOSUB80:COLOR1,2,7 

410 IFPO=1ANDBM=1ANDOG-1THEN620 

420 IFPO=2ANDBM=2ANDOG=1THEN620 

430 IFPO=3ANDBM=3ANDOG=1THEN620 

440 IFPO=4ANDBM=4ANDOG=1THEN620 

450 I FT=40ANDOG=2THENSC=SC + 1 : GOSUB790 : GOTO 

510 

460 IFOG=2ANDKE*< > " "THENGOSUB810: GOTO490 

470 1 FT=40ANDOG= 1 THENGOSUB830 : GOTO490 

480 GOSUB760 : CHAR 1,8,5," WRONG ! " : SOUND 1 , 20 

0, 10:SOUND1,0,20 

490 SC=SC-1 

500 IFSC<1THEN550 

510 GOSUB650 

520 FORT=0TO999:NEXT 

530 GOTO200 

540 REM >>>>>END OF GAME <<<<< 

550 CHAR1.4, 17, "BAD LUCK, YOU" 

560 CHAR1,4, 18, " 

570 CHAR1,4,19, "MADE IT THROUGH" 

580 CHAR1, 4,20, " 

590 Q*=STR* ( TU ) + " TURNS . " 

600 CHAR1,4,21,Q« 

610 FORT=1TO2000: NEXT: RUN 

620 GOSUB760: CHAR 1,7,5, "CORRECT !" 

630 FORR=600TO800STEP10: SOUND 1 , R, 2: NEXT 

640 SC=SC+l:GOSUB650:GOTO510 

650 Q*=" €CUR LXCUR L>€CUR L>{CUR L>" + 

STR*(SC) :CHAR1, 10, 20, Q*: RETURN 
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660 A*<1> = "«~UX A *X~IXCUR DNXCUR LXCUR 

L>£CUR LXCUR LXCUR LXCUR LX A NX A M> { " 
-J { — > < A NX A MXCUR DNXCUR LXCUR LXCUR 

LXCUR LXCUR LXCUR LXCUR L}{ A M}{ A J){«R 
}{ A K}{"N}{CUR DNXCUR LXCUR LXCUR LXCUR 

LX A MX"+X A NXCUR DNXCUR LXCUR LX A -X 
CUR DNXCUR LX A -XCUR DNXCUR LX A ->" 
670 A*(l)=A*<l)+"tCUR DNXCUR LXCUR LXCU 
R LXCUR LXCUR LXCUR LXCUR UPX"MXCUR 
DNX*YX*YX*YX*YX*YX*YX*YX*YX*YXCU 
R UPX A NXHOME>" 
680 A*(2)="{ A U}{ A #}{ A I>{CUR DNXCUR LXCUR 

LXCUR LX"-> { A -}(CUR DNXCUR LXCUR LX 
CUR LX A JX*RX A KXCUR DNXCUR LXCUR LXC 
UR LX"NX"+X~MXCUR DNXCUR LXCUR LXCU 
R LXCUR LX A N> « A -> { A M}(CUR DNXCUR LXC 
UR LXCUR LXCUR LXCUR LXCUR LXCUR LX" 
MX A N> t"-> { A M>{ A N>{CUR DNXCUR LXCUR 
LXCUR LXCUR LXCUR LX A ->" 

690 A*(2)=A*<2)+"{CUR DNXCUR LXCUR LX"N 
X*YX A MXCUR DNXCUR LXCUR LXCUR LXCUR 

LX A N> € A MXCUR DNXCUR LXCUR LXCUR L 

XCUR LXCUR LX A MJ {"NXCUR DNXCUR LX 

CUR LXCUR LXCUR LX~M> t A NXCUR DNXCUR 
LXCUR LXCUR LX"N> €"MXHOME>" 
700 A*(3)="{ A U>f A *>€ A I>«CUR DNXCUR LXCUR 

LXCUR LXCUR LXCUR LXCUR LX A NX A M> I " 
-> t A -XCUR DNXCUR LXCUR LXCUR LXCUR L 
X A MX"JX*RX A KXCUR DNXCUR LXCUR LXCU 
R L>{ A M>{ A +}{ A M}{CUR DNXCUR LXCUR LX — > 

€ "MX CUR DNXCUR LXCUR LXCUR LX"-> { " 
MX"NXCUR DNXCUR LXCUR LXCUR LXCUR L> 
CCUR LX"-J" 

710 A*(3)=A*(3)+"tCUR DNXCUR LXCUR LXCU 
R LXCUR LXCUR LXCUR LXCUR UP X "MX CUR 
DNX*YX*YX*YX*YX#YX"MXCUR DNX"MXCU 
R DNXCUR LX"NXCUR DNXCUR LXCUR LX"N> 
«CUR DNXCUR LX"MXHOME>" 
720 A*<4)="<"UX"*X"IXCUR DNXCUR LXCUR 

LXCUR LX"-> { — > {"NX"MXCUR DNXCUR L 
XCUR LXCUR LXCUR LXCUR LXCUR LX"JX* 
RX"KX"NXCUR DNXCUR LXCUR LXCUR LXCU 
R LX A N}{ A +}{ A N}{CUR DNXCUR LXCUR LXCUR 

LXCUR LX"N> t A -XCUR DNXCUR LXCUR LX 
CUR LXCUR LXCUR LX"MX"N> € — XCUR DNJ 
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CCUR LM A ->" 

730 A*(4)*A*<4>+"«CUR DNXCUR LXCUR LM A N 

}£#Y}{*Y}{*Y}{#Y}{*Y}{CUR UPX~N>CCUR DN>t 

CUR DNXCUR LXCUR LXCUR LXCUR LXCUR L> 

tCUR LXCUR LXCUR DCNXCUR DNXCUR LX" 

MX CUR DN){ A M>{CUR DNXCUR LX "NXHOME} " 

740 CL*=" 

750 RETURN 

760 F0RR=3T07STEP2 : CHAR1 , 4 , R f " 

-: NEXT: RETURN 
770 FORR=0TO1 1 : CHAR1 , 26, R, CL*: NEXT: RETURN 
780 F0RR*=13T024: CHAR1 , 26, R, CL*: NEXT: RETURN 
790 GOSUB760 : CHAR 1,4,5," WELL DONE ! " : CHAR 1 
,4,7, "O'RILEY SAID IT" 

800 SOUND 1 , 200, 10: SOUND 1 , 400, 10: RETURN 
810 GOSUB760: CHAR 1,4, 5, "WRONG !":CHAR1,4,7 
, "O'RILEY SAID IT" 

820 SOUND3 , 900 ,10: SOUND3 , 999 ,10: RETURN 
830 GOSUB760:CHAR1,5,5, "OUT OF TIME !" 
840 SOUND 1 , 200, 10: SOUND 1 , 0, 20: RETURN 
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Who's a Pretty Program? 

Here are four pretty parrots, each a different colour and each holding 
a 'string' in his mouth. 

When the program runs the parrots will commence pulling the 
strings in sequence. The first set will consist of only one pull. Then it 
will be your turn to copy the sequence. 

The perches of the birds have been arranged to correspond to the 
arrangement of the keys: Cursor up = the top parrot; * = the bottom 
parrot; A = the left parrot; S = the right parrot. 

The computer produces a sequence which starts off simply but gets 
very long. During testing of this program no one was able to 
remember more than a sequence of 25. Amnesia usually sets in at 
around 12. As it stands the longest sequence that the parrots will 
produce is 50 long. If you remember that length then you must have 
some sort of photographic memory - or perhaps you are an android! 

This simple game can be great fun at parties where all sorts of 
forfeits or penalties may be devised for the losers. 



Parrot 109 

10 REM <<<<< PARROT <> ANDY/ JIM/GREG >>>> 

20 POKE52 , 55 : POKE54 , 55 : POKE56 , 55 : GOSUB 1 300 

: GOSUB 1 340 : SYS882: VOL8 

30 P0KE65298 , 1 92 : POKE65299 , ( PEEK i 65299 ) AND 

3)OR56 

40 DIMNO<50) :XX=RND(-TI) 

50 COLOR0, l:C0LOR4,l:COLORl,8,5:SCNCLR 

60 GOSUB520:GOSUB840 

70 SC=0:HI=0 

80 GOSUB 1030 

90 RESTORE 100 

100 DATA3,8,4,6 

110 F0RA*1T04: C»A: READC: COLOR1 , C, 4: GOSUB96 



120 NEXT 

130 PO-0 

140 REM >>>>>>>>>>> MAIN LOOP <<<<<<<<<<< 

150 N=INT(RND<1>*4)+1 

160 PO=PO+l 

170 NO(PO)=N 

180 GOSUB 1200: X=l : Y=21 : GOSUB510: PRINT- {BLU 

XYELJMY TURN" 

190 FORB=lTOPO 

200 GOSUB 11 40 

210 NEXT 

220 FORT=l TO 1000: NEXT 

230 B=l 

240 GOSUB 1200: X=l : Y=21 : GOSUB510: PRINT" <I_T 

BLU>YOUR TURN" 

250 GOSUB 1230 

260 I FLE*1THENA=4: SOUND 1,800, 10: COLOR1 , 6,5 

: GOSUB 1000: FORT=1TO500: NEXT: GOTO310 

270 IFRI=1THENA=2: SOUND 1 , 400, 10: COLOR 1 ,8,5 

: GOSUB 1000: FORT*1TO500: NEXT: GOTO310 

280 IFUP=1THENA«1 : SOUND1 , 200, 10: COLOR1 ,3,5 

: gosub i 000 :fort«ito500: next :goto3 10 

290 I FDN= 1 THEN A=3: SOUND 1,600, 10: COLOR1 , 4, 5 

: GOSUB1000: FORT«1TO500: NEXT: GOTO310 

300 GOTO250 

310 GOSUB960 

320 I FNO ( B ) = ATHEN330 : ELSE360 

330 IFB=POTHENGOSUB1200: X=l : Y=21 : GOSUB510: 

PRINT" € RED > WELL DONE, "PO" SO FAR." 

340 I FB=POTHENFORT= 1 TO 1 500 : NEXT : GOSUB 1 200 : 

GOTO 150 
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350 B=B+l:GOTO250 

360 GOSUB1200 

370 X=l:Y=2l:GOSUB510: PRINT" { PUR > WRONG SEQ 

UENCE" 

380 Y=22:GOSUB5 10: PRINT "AFTER "PO-1" MOVEM 

ENTS. " 

390 FORT=1TO2000:NEXT 

400 GOSUB1200 

410 Y=2l:GOSUB510: PRINT" <GRN>SEQUENCE WAS" 

420 FORT=l TO 1000: NEXT 

430 FORB=lTOPO 

440 GOSUB1140 

450 NEXT 

460 GOSUB1200 

470 X=l:Y=2l:GOSUB510: PRINT" <CYN>TRY AGAIN 

480 FORT=1TO2000:NEXT 

490 GOSUB1200 

500 GOTO 130 

510 POKE208 , X : POKE209 , Y : S YS828 : RETURN 

520 RESTORE530 : FORT=0TO239 : RE ADA : POKE 1 4848 

+T , A : NEXT : RETURN 

530 DATA2,2,2,2,0,7,15,31 

540 DATA0,0,3,7,7,206,254,255 

550 DATA0, 0,224, 248, 248, 124, 124,252 

560 DATA31,25, 16,0, 1,2,4,0 

570 DATA255,63, 143, 135,7,7, 15,31 

580 D AT A252 , 248 , 240 , 240 , 240 , 248 , 252 , 254 

590 DATA30,29,61,59,59,59,61,30 

600 DATA255 , 255 , 255 , 255 , 255 , 255 , 255 , 63 

610 DATA0, 128, 192, 224, 240, 248, 252,254 

620 DATA15,7,0,0,0,28,63,0 

630 DATA199, 248, 255, 63, 48, 96, 248,0 

640 OATA255,63,255,255,31,3,0,0 

650 DATA0,128, 192,224,240,248,124,3 

660 DATA2,2,2,2,0,30, 127,127 

€>70 DATA0,0,0,0,0,0,0,192 

680 OATA0,0,0,0,0,0,0,7 

690 DATA0, 0,0, 0,0, 15, 127,255 

700 DATA0,0, 1,31,255,255,255,254 

710 DATA28, 120,240,224, 192, 128,0,0 

720 OATA255, 255, 231 , 231 , 255, 127, 31 , 15 

730 D AT A240 , 255 , 255 , 255 , 255 , 255 ,143,7 

740 D AT A255 , 255 , 255 , 255 , 255 , 255 , 1 27 , 28 

750 DAT A255 , 255 , 255 , 254 , 253 , 243 , 207 , 63 
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880 U3*=CHR* ( 32 ) +CHR« ( 102 ) +CHR* ( 103 ) +CHR* < 
104)+" 

890 U4*=CHR* ( 32 ) +CHR* ( 105 ) +CHR* < 106 ) +CHR* ( 
107)+CHR*(108)+" 

900 D1*=CHR*(124>+" ":REM 5 SPACES 
910 D2*=CHR* ( 109 ) +CHR* (110) +CHR* < 1 1 1 ) +CHR* 
(112)+CHR*(113)+CHR*(114) 

920 D3*=CHR* (115) +CHR* (116) +CHR* (117) +CHR* 
(118) +CHR*( 119) +CHR*(32) 

930 D4*=CHR*( 120) +CHR*( 121 ) +CHR*( 122) +CHR* 
(123)+" 
940 RETURN 
950 REM >>>> PRINT UPRI6HT PARROT <<<< 

960 x=PX(A) :y=py(A) :gosi»B510:printui*:y=py 

( A ) + 1 : GOSUB5 10 : PR I NTU2* 

970 Y=PY (A) +2: GOSUB510: PRINTU3*: Y=PY ( A) +3: 
6OSUB510: PRINTU4* 
980 RETURN 

990 rem >>>>> print parrot down <<<<<< 

1000 x=px(A) : y=py(A) :gosub510:printdi*:y=p 

y ( a) +1 : gosub510: printd2* 

1010 y=py ( a) +2: gosub510: printd3*: y=py (a) +3 

: gosub510: printd4*: return 

1020 rem >>>>>>>> draw screen <<<<<<<<< 

1030 color1 , 2, 3: y=0: forx=0to39: gosub510: pr 

intchr*(125) j inext 

1040 color 1 , 3, 5: f0rt=1t03: x=20: y=t: gosub51 

: pr i ntchr* ( 1 24 ) : next 

1050 color1 , 8, 5: f0rt=1t012: x=30: y=t: gosub5 

10:printchr*(124) : next 

1060 color 1 , 4, 5: f0rt=1t07: x=6: y=t: gosub510 

: pr i ntchr* ( 124 ) : next 
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1070 colori,7,6:fort=itoi4:x=14:Y'=t:gosub5 
10: printchr* ( 124) : next 

1080 PL*=" » : F0RT=1T05: PL*=PL*+CHR* < 125) : NE 

XT:COLORl,2,3 

1 090 X=20 : Y=*8 : GOSUB5 10 : PR I NTPL* : X=30 : Y= 1 7 : 

GOSUB5 1 : PR I NTPL* 

1 100 X=6: Y=12: GOSUB510: PRINTPL*: X=14: Y=19: 

GOSUB510: PRINTPL* 

1110 Y=20: FORX=0TO39; GOSUB510: PRINTCHR* < 12 

5) J :next 

1 120 COLOR 1 , 9, 4: X=17: Y«23: GOSUB510: PRINT"P 

ARROT": RETURN 

1130 REM >>>>>>>>> MAKE SOUND <<<<<<<<< 

1 140 IFNO <B) =1THENA=1 : COLOR1 , 3, 5: GOSUB1000 

: SOUND 1 , 200, 10: FORT=1TO500: NEXT 

1 150 IFNO (B) =2THENA=2: COLOR 1 ,8, 5: GOSUB1000 

: SOUND 1 , 400, 10: FORT=1TO500: NEXT 

1 160 IFNO (B) *=3THENA=3: COLOR 1 , 4, 5: GOSUB1000 

: sound 1,600, 10:fort=ito500:next 

1 170 ifno (b) =4thena=4: color1 , 6, 5: gosub1000 

: sound 1,800, 10:fort=ito500:next 

1180 GOSUB960 
1190 RETURN 

1200 x=0:y=2i:gosub510:forz=0TO30: print- " 
; : NEXT 

1210 y=22:gosub510:forz=ito30: print" -;:ne 
xt: return 

1220 IFKS=49THENDN»1 

1 230 le-0 : R I =»0 : up=0 : dn=0 : ks=peek ( i 98 ) 

1240 IFKS=10THENLE=1 

1250 IFKS=13THENRI*1 

1260 IFKS=43THENUP=1 

1270 IFKS=49THENDN=1 

1280 RETURN 

1 290 POKE65298 , 1 96 : POKE65299 , 209 : STOP 

1 300 RESTORE 1310: FORN=0TO53 : RE ADA : POKE828 + 

N , A : NEXT : RETURN 

1310 DATA24, 166, 209, 164, 208, 32, 240, 255, 96, 

169,0, 133,210, 169,12,133,211,32,60,3 

1320 DATA164, 209, 240, 8, 169, 40, 32, 102, 3, 136 

, 208, 248, 165, 208, 32, 102, 3, 177, 210, 133 

1330 DATA215,96,24, 101,210, 133,210, 165,211 

, 105,0, 133,211,96 

1 340 restore 1 350 : forn=0to30 : reada : poke882+ 
n, a: next: return 
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1350 DATA160,0, 132,212, 132,214, 169,208, 133 

,213, 169,56, 133,215, 162,3 

1360 DATA177, 212, 145, 214, 200, 208, 249, 230, 2 

13,230,215,202,16,242,96 
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An Arcade Gobble 

This is the first of three arcade type games included in this book. It is a 
variation on a well known theme in which you guide your character 
around a maze eating up the dots as you go. 

Life is never easy in the arcade world and so there are a couple of 
nasties out to eat up the dots before you do. 

To make matters even worse they will kill you if they get you! The 
object of this variant is to pick up as many dots as possible before all 
the dots are gone, without being killed. Once all the dots are gone the 
next screen will be displayed. 

The direction of the Pick Man is controlled using: cursor up for up, 
* for down, S for right and A for left. 

In the hands of a skilled and patient player, incredible high scores 
can be achieved. 
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10 REM <<<<<<< PICK MANK-ISSI/GREG >>>>>>> 

20 GOSUB2020: PRINT" «CI_R> " : A=65298 : POKE A , PE 

EK(A)AND251 

30 POKE A + 1 , C PEEK < A + 1 > AND3 > OR56 

40 POKE52 , 55 : POKE54 , 55 : POKE56 , 55 : VOL8 

50 6OSUB2070:SYS882 

60 restore70 : forn=0to 1 27 : re ada : poke 1 4848 +n 
,a:next:goto260 

70 DATA3, 15,63,63, 123,113,241,251 

80 DATA192,240,252,252,222, 142, 143,223 

90 DATA255,255,127, 127,63,63, 15,3 

1 00 DAT A255 , 255 , 254 , 254 , 252 , 252 , 240 , 1 92 

110 DATA3, 15,63,63, 123, 113, 241 , 251 

120 DATA192, 240, 252, 252, 222, 142, 143, 223 

130 DATA255, 255, 127, 127, 63, 63, 15,3 

1 40 DAT A255 , 255 , 254 , 254 , 252 , 252 , 240 , 1 92 

150 DATA3, 29, 49, 33, 65, 65, 129,255 

160 DATA255, 129,65,65,33,49,29,3 

170 DATA192, 176, 140, 132, 130, 130, 129,255 

180 DATA255, 129, 130, 130, 132, 140, 176, 192 

190 DATA255, 129, 129, 129, 129, 129, 129, 255 

200 DATA3,3,0,0,0,0,0,0 

210 DATA15, 112,64, 128, 128,64, 112, 15 

220 DATA240, 14,2,1,1,2,14,240 

230 YY*=LEFT*<YD*, Y> ZPRINTYY*; :PRINTTAB<X) 

"GREG": STOP 

240 SYS837: CH=PEEK< 215 ): RETURN 

250 S YS837 : CM-PEEK < 2 1 5 ) : RETURN 

260 HI=1000 

270 REM >>>>>>>>>> MAIN LOOP <<<<<<<<<<< 

280 REM 

290 SC=0:CO=8:LI=3 

300 GOSUB430: T*= " i "*> I A A> " : B*=" { "BM ~C J " 

310 T1*="« A D>< A E>":B1*="« A FX"G>" 

320 PRINT" €BLU>" 

330 X=20:Y=15 

340 Xl=l:Yl=2:X2=35:Y2=2 

350 GOSUB810 

360 GOSUB1570 

370 GOSUB810 

380 I F « X 1 »X AND Y 1 - Y ) OR < X2=X AND Y2= Y ) THENDE= 1 

390 IFCO257THEN1090 

400 IFDE=1THEN1120 

410 GOTO350 

420 REM >>>>>>>>>> SCREEN <<<<X+«4-£« 
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430 COLOR4, l: :COLOR0, i: PRINT" <HOMEJtOR>SCO 
RE 00 LIVES "JLI 

440 POKE208, 28: POKE209,0:SYS828: PRINT "HIGH 
"HI 

450 COLOR 1,6, 5 

460 W*=CHR* ( 108 ) +CHR* ( 108 ) : X*=CHR* ( 104 ) +CH 
R*(106) :V*«CHR*(109)+CHR*(32) 

470 Y*=CHR*(105)+CHR*(107) : Z*=CHR*( 110) +" < 
A LJC A L>€ A L>€ A LX A L>€' V LJ€ A L>« A LJ"+CHR*<111) 
480 R*=V*+V*+V*:S*=R*+V*+V* 

490 PRINTCHR«(104) J :FORT=0TO37: PRINTCHR* ( 1 
08) ; : NEXT: PRINTCHR* (106) \ 

500 A*=CHR* ( 108) +S*+W*+S*+V*+V*+W*+S*+CHR* 
(108) 

510 PR I NT A*; :Q*=A* 
520 PR I NT A* J 

530 A*=CHR* ( 108) +V*+CHR* ( 1 10) +W*+W*+CHR* ( 1 
06) +V*+Y*+V*+Z*+V*+Y*+V* 

540 A*= A*+CHR* ( 104 ) + W*+W*+CHR* ( 11 1 ) + V*+CHR 
*(108) : PRINT A*| 

550 A*=CHR* ( 108 ) +R*+W*+S*+S*+ V*+W*+R*+CHR* 
(108) :PRINTA*J 

560 MID* (A*, 8, 2) =Y*: MID* (A*, 32, 2) =Y*: PRINT 
A*} 

570 a*»w*+w*+chr* ( 106 ) +r*+x*+ v*+z*+v*+x*+r 

*+chr*(104)+w*+w*:printa*j 

580 a*=*w*+w*+chr* ( 107 ) +r*+w*+s*+ v*+ v*+w*+r 

*+chr* ( 105) +w*+w*: pr i nt a* j 

590 a*-chr* ( 108 ) +r*+x*+ v*+w*+s*+ v*+v*+w*+v 

*+x*+r*+chr* ( 108) : print a*; 

600 a*=chr* ( 107 ) +r*+ w*+ v*+ y*+ v*+chr* ( 104 ) + 

W*+CHR* ( 107) +Y* 

610 A*=A*+CHR* ( 105) +W*+CHR* ( 106) +V*+Y*+V*+ 

W*+R*+CHR*(105) : PRINT A*; 

620 A*=CHR*(32)+V*+X*+V*+W*+R*+W*+" 

+W*+R*+W*+V*+X*+V*+CHR*(32) : PRINT A*; 

630 MID*(A*,4,2)=Y*:MID*(A*,36,2)*Y* 

640 PR I NT A* J 

650 A*=CHR* ( 106 ) +R*+W*+ V*+X*+ V*+W*+ " 

- +W*+V*+ X*+V*+W*+R*+CHR* ( 104) 

660 PR I NT A*; 

670 J*=A*:A*=CHR*(108)+MID*(J*,2,10)+W*+V* 

+CHR*(105)+"t A L>< A L>t A L>{ A L>{ A L>t A LJ{ A L>< A 

LJ"+CHR*(107) 

680 A*=A*+V*+W*+MID*(J*,30, 10) +CHR*(108) :P 
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RINTA*; 

690 A*==W*+W*+CHR* ( 106 ) +V*+W*+V*+W*+S*+V*+V 

*+W*+V*+W*+V*+CHR*< 104) +W*+W* 

700 PR I NT A*; 

710 MID* (A*, 5,1)=CHR*(107) : MID*< A* f 36, 1 ) =C 

HR*<105) :MID*<A*,8,2)=Y* 

720 MID*(A*,32,2)=Y*:PRINTA*S 

730 A*=CHR* ( 108) +S*+W*+V*+Z*+V*+W*+S*+CHR* 

(108) : print A*; :a*=q*:printa*j 

740 b*=chr*(104)+w*+w*+chr*<106) : mid* (a*, 4 

,6)=b*:mid*(a*,32,6)=b*:printa*; 

750 b*=chr*(105)+w*+w*+chr*(107) : mid* (a*, 4 

, 6)=B*:MID*(A*,32,6)=B* 

760 mid*<a*, 16, 10)=2*:printa*;q*;q*; 

770 PRINTCHR*tl05) ; : FORT=0TO37: PRINTCHR*< 1 

08) % : NEXT: PRINTCHR*( 107) ; : PRINT" {HOME > " 

780 RETURN 

790 REM >>>>>>>>> INITIALIZE <<<<<<<<< 

800 REM >>>>>>>>>> MOVEMENT <<<<<<<<<< 

810 6OSUB1750 

820 IFLE=1THEN6OSUB880 

830 IFRI=1THENGOSUB920 

840 IFUP=1THENGOSUB960 

850 IFDN=1THENGOSUB990 

860 GOSUB 1690: RETURN 

870 REM >>>>>>>>>> CHECKS <<<<<<<<<<<< 

880 POKE208, X-l :POKE209, Y: GOSUB 1840: IFCM< > 

32THENRETURN 

890 POKE208, X-l:POKE209, Y+l : GOSUB1840: IFCM 

< >32THENRETURN 

900 GOSUB 1020: X=X-1 : IFX=0THENX=37 

910 RETURN 

920 POKE208,X+2:POKE209,Y:GOSUB1840:IFCM<> 

32THENRETURN 

930 POKE208,X+2:POKE209 f Y+l: GOSUB1840: IFCM 

< >32THENRETURN 

940 GOSUB1020:X=X+l: IFX=>38THENX=1 

950 RETURN 

960 POKE208 , X : POKE209 , Y - 1 : GOSUB 1 840 : I FCM <> 

32THENRETURN 

970 POKE208,X+l:POKE209 f Y-l : GOSUB1840: IFCM 

< >32THENRETURN 

980 GOSUB1020:Y=Y-l: RETURN 

990 POKE208, X: POKE209, Y+2: GOSUB 1840: IFCM< > 

32THENRETURN 
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1000 POKE208, X+HPOKE209, Y+2:GOSUB1840: IFC 

M< >32THENRETURN 

1010 GOSUB1020:Y=Y+l: RETURN 

1020 POKE208, XZPOKE209, Y:SYS828: PRINT" "S 

1030 POKE208,X:POKE209,Y+i:SYS828: PRINT" 

" } : RETURN 

1 040 POKE208 , X 1 : POKE209 , Y 1 : S YS828 : PR I NT " 

1050 POKE208, XI : POKE209, Yl+1 : SYS828: PRINT" 

m 

1060 POKE208, X2: POKE209, Y2: SYS828: PRINT" 

■I 

1070 POKE208, X2: POKE209, Y2+1 : SYS828: PRINT" 
" : RETURN 

1080 rem >>>>>>>>>>> clear <<<<<<<<<<<< 

1090 sc=sc+1000: poke208, 6: poke209, 0: sys828 

:printsc 

1 100 restore2000: tu=12: gosub1820: co=8: goto 

300 

1110 REM >>>>>>>>>>> DEAD <<<<<<<<<<<<< 

1 120 C*=T*: D*=B*: DE=0: GOSUB1020: RESTORE198 

0: TU=8: GOSUB1820 

1 130 GOSUB1040: COLOR 1 , 9, 4: LI-LI-1 : IFLI=0TH 

EN 1920 

1140 POKE208, 19:POKE209,0:SYS828:PRINTLI:G 

OTO330 

1150 REM >>>>>>>> MOVE BADDIES <<<<<<<< 

1 1 60 POKE208 , X I - 1 : POKE209 ,Yl! GOSUB240 : I FCH 

< >77ANDCH>71THENRETURN 
1170 IFCH=77THENCO=CO+l 

1 1 80 POKE208 , X 1 - 1 : POKE209 , Y 1 + 1 : GOSUB240 : I F 

CH< >77ANDCH>71THENRETURN 

1190 IFCH=77THENCO=CO+l 

1200 GOSUB1040: X1=X1-1 : GOSUB1710: RETURN 

1210 POKE208 , X2 - 1 : POKE209 , Y2 : GOSUB240 : I FCH 

< >77ANDCH>71THENRETURN 
1220 IFCH=77THENCO=CO+l 

1230 POKE208, X2-1 : POKE209, Y2+1 : GOSUB240: IF 

CH< >77ANDCH>71THENRETURN 

1240 IFCH=77THENCO=CO+l 

1250 GOSUB1040: X2=X2-1 : GOSUB1710: RETURN 

1260 POKE208,X1+2:POKE209, Yl:GOSUB240Z IFCH 

< >77ANDCH>71THENRETURN 
1270 IFCH=77THENCO=CO+l 

1 280 POKE208 , X 1 + 2 : POKE209 , Y 1 + 1 : GOSUB240 : I F 
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CH< >77ANDCH>71THENRETURN 

1290 IFCH=77THENCO«CO+l 

1300 GOSUB1040: Xl-Xl+1 : GOSUB1710: RETURN 

1310 POKE208,X2+2:POKE209, Y2:GOSUB240: IFCH 

< >77ANDCH>71THENRETURN 
1320 IFCH=77THENCO=CO+l 

1330 POKE208, X2+2: POKE209, Y2+1 : GOSUB240: IF 

CH< >77ANDCH>71THENRETURN 

1340 IFCH=77THENCO=CO+l 

1350 GOSUB1040: X2*X2+1 : GOSUB1710: RETURN 

1 360 POKE208 f X 1 : POKE209 , Y 1 - 1 : GO8UB240: IFCH 

< >77ANDCH>71THENRETURN 
1370 IFCH=77THENCO=CO+l 

1 380 POKE208 , X 1 + 1 : POKE209 , Y 1 - 1 : GOSUB240 : I F 

CH< >77ANDCH>71THENRETURN 

1390 IFCH=77THENCO=CO+l 

1400 GOSUB1040:Yl-Yl-l:GOSUB1710: RETURN 

1410 POKE208,X2:POKE209, Y2-1 : GOSUB240: IFCH 

< >77ANDCH>71THENRETURN 
1420 IFCH=77THENCO=CO+l 

1430 POKE208, X2+1 : POKE209, Y2-1 : GOSUB240: IF 
CH< >77ANDCH>71THENRETURN 
1440 IFCH=77THENCO=CO+l 
-1450 GOSUB1040:Y2=Y2-l:GOSUB1710: RETURN 
1460 POKE208, XI : POKE209, Yl+2: GOSUB240: IFCH 

< >77ANDCH>71THENRETURN 
1470 IFCH»77THENCO=CO+l 

1480 POKE208,Xl+l:POKE209, Yl+2: GOSUB240: IF 
CH< >77ANDCH>71THENRETURN 
1490 IFCH=77THENCO=CO+l 
-4500 GOSUB1040:Yl=Yl+l:GOSUB1710: RETURN 
1510 POKE208,X2:POKE209, Y2+2: GOSUB240: IFCH 

< >77ANDCH>71THENRETURN 
1520 IFCH=77THENCO=CO+l 

1530 POKE208, X2+1 : POKE209, Y2+2: GOSUB240: IF 

CH< >77ANDCH>71THENRETURN 

1540 IFCH=77THENCO=CO+l 

1550 GOSUB1040:Y2=Y2+l:GOSUB1710: RETURN 

1560 RETURN 

1570 N=RND(1) :IFN>0.7THEN1620 

1580 IFX>X1THENGOSUB1260 

1590 IFX<X1THENGOSUB1160 

1600 IFY>Y1THENGOSUB1460 

1610 IFY<Y1THENGOSUB1360 

1620 N=RND ( 1 ) : IFN>0. 6THENRETURN 
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1630 IFX>X2THENGOSUB1310 

1640 IFX<X2THENGOSUB1210 

1650 IFY>Y2THENGOSUB1510 

1660 IFY<Y2THENGOSUB1410 

1670 RETURN 

1680 REM >>>>>>>>> PRINT MAN <<<<<<<<<<< 

1 690 COLOR 1,7,4: POKE208 , X : POKE209 , Y : S YS828 

: PR I NTT* i 

1700 POKE208,X:POKE209,Y+l:SYS828:PRINTB«; 

: RETURN 

1710 color 1 , 3, 2: poke208, xi : poke209, yl : sys8 
28:printti*; 

1720 POKE208,Xl:POKE209,Yl+l:SYS828:PRINTB 

1*} 

1730 POKE208,X2:POKE209,Y2:SYS828:PRINTT1S 

m 

» 

1 740 POKE208 , X2 : POKE209 , Y2 + 1 : S YS828 : PR I NTB 

i«; : RETURN 

1 750 LE=0 : R I =0 : UP=0 : DN=0 : KS=PEEK ( 1 98 ) 

1760 IFKS=10THENLE=1 

1770 IFKS=13THENRI=1 

1780 IFKS=43THENUP=1 

1790 IFKS=49THENDN=1 

1800 RETURN 

1810 REM >>>>>>>>> PLAY TUNE <<<<<<<<<<< 

1 820 FORN= 1 TOTU : RE ADNO , DU : SOUND2 , NO , DU : NEX 

TN: RETURN 

1830 REM>> >>>>>>> DETECTION <<<<<<<<<<< 

1 840 XX=PEEK ( 208 ) : Y Y=PEEK < 209 ) : GOSUB250 

1850 IFCMO77THEN1880 

1860 CM=32:SC=SC+10:SOUND2,120,7:CO=CO+l:P 

OKE208 , 5 : POKE209 , : SYS828 : COLOR 1,9,4 

1870 PRINTSC : POKE208, XX: POKE209, YY 

1880 IFCM=32THENRETURN 

1890 IFCM>71THENRETURN 

1900 DE=l: RETURN 

1910 REM>>>>>>>>>> END GAME <<<<<<<<<<< 

1920 PRINT" <CLRJ " : POKE208, 8: POKE209, 3: SYS8 

28: PRINT" CCYNJ YOU HAVE BEEN GOBBLED !" 

1 930 POKE208 , 8 : POKE209 ,21: S YS828 : PR I NT " i YE 

L> PRESS *Y* TO PLAY AGAIN" 

1940 IFSOHITHENHI=SC:POKE208, 10:POKE209,9 

:SYS828:PRINT"{PUR>A NEW HIGH GOBBLE !" 

1950 GETA*: IFA*O"Y"THEN1950 

1960 GOTO280 
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1970 REM # * * DEAD TUNE * * * 

1980 DATA284, 20, 284, 20, 284, 20, 358, 75, 319, 2 

0,319,20,319,20,379,75 

1990 REM * * * SCREEN TUNE * * * 

2000 DATA319, 20, 253, 20, 213, 50, 253, 20, 213, 2 

0,253,50 

2010 DATA319, 20, 253, 20, 213, 50, 253, 20, 319,2 

0,253,50 

2020 RESTORE2030 : FORN=0TO53 : RE ADA : POKE828 + 

N, A: NEXT 

2030 DAT A24 , 1 66 , 209 , 1 64 , 208 , 32 , 240 , 255 , 96 , 

169,0,133,210,169,12,133,211,32,60,3 

2040 DATA164, 209, 240, 8, 169, 40, 32, 102, 3, 136 

, 208, 248, 165, 208, 32, 102, 3, 177, 210, 133 

2050 DATA215,96,24, 101,210, 133,210,165,211 

, 105,0, 133,211,96 

2060 RETURN 

2070 restore2080: forn=0to30: reada: poke882+ 
n, a: next: return 

2080 DATA160.0, 132,212, 132,214, 169,208, 133 

,213, 169,56, 133,215, 162,3 

2090 DATA177.212, 145,214,200,208,249,230,2 

13,230,215,202,16,242,96 
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One Jump Ahead 

'Once upon a time in Australia, which is a long way from Britain, 
there lived a little kangaroo. This little chap was called Skippy and he 
was very happy for many years. 

'Skippy had his home by the banks of a fast flowing river on which 
logs floated. He used to enjoy sitting in his little hut looking out 
across the beautiful countryside, but one day things changed. 

'The nasty humans came, and built a car expressway right next to 
the river. This meant that every day when Skippy and his friends 
returned from foraging for food, they had to cross the busy road, 
jump onto the logs to cross the river and then jump off as they passed 
their home. This is very dangerous and so they would like you, dear 
readers, to help.' 

Using the cursor keys guide Skippy and his friends safely between 
the cars, onto the logs and into their homes. Your assistance to 
wildlife will be rewarded with points in relation to how well you guide 
each kangaroo! 
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213,230,215,202, 16,242,96 

1130 REM 

1140 DATA 0,0,3,31,63,125,2,1 

1150 DATA 127,132,4,255,255,223,32,192 

1160 DATA 224,16,8,255,255,251,4,3 

1170 DATA 0,0,0,248,252,188,64,128 

1180 DATA 3,5,9,31,63,63,2,1 

1190 DATA 242,18,19,240,255,222,33,192 

1200 DATA 0,0,254,199,248,232,16,224 

1210 DATA 0,0,0,255,0,0,0,0 

1220 DATA 0,0,0,255,28,35,35,28 

1230 DATA 0,0,0,255,225,17,16,224 

1240 DATA 0,1,251,127,143,172,136,112 

1250 DATA 57,234,252,206,237,112,49,0 

1260 DATA 0,128,112,232,16,80,16,224 

1270 DATA 255,132,114,41,161,85,173,87 

1280 DATA 255,0,243,0,3,112,4,255 

1290 DATA 255,48,192,14,128,48,0,255 

1300 DATA 240,12,98,1,49,9,1,255 

1310 DATA 0,127,127,127,127,127,127,127 

1320 DATA 170,85,170,85,170,85,170,85 

1330 DATA 255,255,255,255,255,255,255,255 

1340 DATA 36,24,90,60,24,60,60,219 

1350 DATA 36,24,24,60,90,189,126,136 

1360 DATA 4,12,14,24,60,188,184,94 

1370 DATA 8,24,28,24,60,61,58,220 

1380 DATA 219,60,60,24,60,90,24,36 

1390 DATA 36,126,189,90,60,24,24,36 

1400 DATA 32,48,112,24,60,61,29,122 

1410 DATA 16,24,56,24,60,188,92,59 
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760 COLOR1,9,4:CHAR1,0,2,BA* 
770 COLORl,7,3:PRINT RV*?RV* 
780 COLOR1, 9, 4: FOR 1=1 TO 5 
790 PRINT B2*?:NEXT I 
800 CHAR1.0, 21 ,B2«: PRINT B2*;B3* 
810 GOTO 500 

820 REM DEF SHAPES 

830 RESTORE 

840 FOR 1=0 TO 30: READ J 

850 POKE 882+1, J : NEXT I : SYS 882 

860 FOR 1=0 TO 223: READ J 

870 POKE 14848+1, J : NEXT I 

880 CR*=CHR*(96)+CHR*(97)+CHR*(98)+CHR*(99 

) 

890 LY*=CHR*(100) +CHR*(101)+CHR*(102)+CHR* 
(103)+CHR*(104)+CHR*(105) 
900 BK*=CHR* ( 106 ) +CHR* ( 107 ) +CHR* ( 108 ) 
910 LG*=CHR* 1 109) +CHR* (110) +CHR* (111) +CHR* 
(110)+CHR*(111)+CHR*(112> 
920 W2*=CHR*(114)+CHR*(114) 
930 W3*=W2*+CHR*(114) 

940 S1*=CHR*(32) : S2*=CHR*(32) +CHR*(32) 
950 S3*=S1*+S2*:S4*=S2*+S2* 
960 S8*=S4*+S4*:S0*=S4*+S8* 

970 C 1*=CR*+CR*+S8*+CR*+S4*+CR*+CR*+CR*+S3 
* 

980 C2*=LY*+S0*+LY*+S3*+LY*+LY* 
990 C3*=BK*+BK*+S8*+BK*+BK*+BK*+BK*+BK*+S2 
*+S3* 

1000 L1*=LG*+W3*+W3*+L6*+W3*+W3*+LG*+W3*+W 
3*+W3* 

1010 L2*=LG*+W3*+W3*+LG*+W3*+W3*+LG*+W3*+W 
3*+W3* 

1020 FOR 1=1 TO 100:RV*=RV«+CHR*(114) : NEXT 
1030 FOR 1=1 TO 80:BA*=BA*+CHR*(115) : NEXT 
1040 FOR 1=45 TO 75 STEP 10 
1050 MID*(BA*, I, 1)=CHR*(32) : NEXT I 
1060 FOR 1=1 TO 40 

1070 B2*=B2*+CHR*(113> : B3*=B3*+CHR*( 115) 
1080 NEXT I 
1090 RETURN 

1100 REM DATA 

1110 DATA 160,0,132,212,132,214,169,208,13 

3,213, 169,56, 133,215, 162,3 

1120 DATA 177,212,145,214,200,208,249,230, 
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390 REM INPUT 

400 TS=0:GET I* 

410 IF I*=»- THEN RETURN 

420 TS=1 AND IS=CHR*(145) OR 3 AND I*-CHR* 

(29): IF TS THEN RETURN 

430 TS=5 AND I*=CHR*(17) OR 7 AND I*=CHR* < 
157> : RETURN 

440 REM MOVE CHARS 

450 L2*=RIGHT*(L2*, 1 ) +LEFT*(I_2«, 38) 

460 L1*=RIGHT*(L1*,38)+LEFT*(L1*, 1) 

470 C3*=RIGHT*(C3*,1)+LEFT*(C3*,38) 

480 C2*=RIGHT* ( C2*, 38 ) +LEFT* < C2*, 1 ) 

490 C1*=RIGHT*(C1*, 1 ) +LEFT* (CI*, 38) 

500 COLOR1,7,3:CHAR1,0,5,L2* 

510 CHAR1,0,7,L1* 

520 COLOR1,3,2:CHAR1,0,15,C3* 

530 COLOR1,8,6:CHAR1,0,17,C2* 

540 COLOR1,7,3:CHAR1,0,19,C1* 

550 COLORl,2 

560 RETURN 

570 REM MOVE KANGAROO 

580 K=116+INT(TS/2)*2:M=TS 

590 IF K AND 1 THEN SOUND 3, 1000, 4." ELSE SO 

UND 2,200,4 

600 IF (K AND 1)=0 THEN K=K+1:ELSE K=K-1 

610 POKE 3072+KX+KY*40,CA:POKE 2048+KX+KY* 

40, CC 

620 KX=KX+(1 AND M=3 AND KX<38)-(1 AND M=7 

AND KX>2) 

630 KY=KY+(1 AND M=5 AND KY<23)-(1 AND M=l 
) 

640 CA=PEEK(3072+KX+KY*40) : CC=PEEK (2048+KX 

+KY*40) 

650 CHAR1,KX,KY,CHR*(K) 

660 RETURN 

6,70 REM SCORE ETC. 

680 IF SOHS THEN HS=SC 
690 CHAR1,7,0,STR*(SC) 
700 CHAR1, 17,0,STR*(HS) 
710 CHAR1,28,0,STR*(KA) 
720 RETURN 

730 REM DRAW SCREEN 

740 SCNCLR 

750 COLOR1,2:CHAR1,0,0, -SCORE: HIGH: 
'ROOS: " 
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10 REM >>>> SKIPPY <<<<<<<<<<<<< 

20 REM >>>>BOOTSY/GREG<< <<<<<<<< 

30 P0KE52,55:P0KE54,55:P0KE56,55 

40 POKE65298 ,192: POKE65299 , < PEEK ( 65299 ) AN 

D 3> OR 56 

50 COLOR0,l:COLORl,2:COLOR4, 1 : VOL 8 

60 GOSUB 830 

70 KA=3:SC=0 

80 GOSUB 740: GOSUB 680:KH=0 

90 KX=20: KY=21 : K=l 16: CA=81 : CC=72: M=0 

100 CHAR1,KX,KY,CHR*<K> 

110 REM GAME LOOP 

120 GOSUB 450: IF K AND 1 THEN GOSUB 590: GO 

TO 120 

130 CH=PEEK < 3072+KX+KY*40> 

140 IF CH>63 AND CH<77 OR CA>81 THEN 210 

150 IF KY=3 THEN 310 

160 GOSUB 400: IF TS THEN GOSUB 580 

170 IF CA>67 AND CA<80 THEN KX=KX+<1 AND K 

Y=5)-(l AND KY=7) 

180 IF KX=0 OR KX=39 THEN 210 

190 GOTO 100 

200 REM LOSE LIFE 

210 KA=KA-1 

220 FOR 1=800 TO 100 STEP -100 

230 SOUND 2, I , 1 : NEXT I 

240 IF KA THEN POKE 3072+KX+KY*40, CA: POKE 

2048+KX+KY*40,CC: GOSUB 680: GOTO 90 

250 SCNCLR 

260 CHAR 1,6, 12," YOU BLEW IT YOU ROAD HOG 

i » 

270 CHAR1,4, 14, "SPACE BAR FOR ANOTHER ATTE 

MPT" 

280 GETKEY I*: IF I*OCHR*(32) THEN 280 

290 GOTO 70 

300 REM MADE IT 

310 FOR J= 1 TO 2 

320 FOR 1=100 TO 800 STEP 100 

330 SOUND 2,1,1: NEXT I 

340 FOR 1=800 TO 100 STEP -100 

350 SOUND 2,1, l:NEXTI, J 

360 KH=KH+l:SC=SC+l: GOSUB 680 

370 IF KH<4 THEN 90 

380 CHAR 1,6, 12," WELL DONE YOU MADE IT OK 

! ":GOTO 270 
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10 REM <<<< KINKEY DONG OISSI/GREG >>>>> 

20 A=65298 : POKE A , PEEK ( A 1 AND25 1 : POKE A +1, ( PE 

EK(A+l)AND3>OR56:VOL8: PRINT" <CLR>" 

30 POKE52 , 55 : POKE54 , 55 : POKE56 , 55 : GOSUB2050 

: GOSUB2090: SYS882: GOSUB420 

40 GOSUB740 

50 GOSUB710 

60 IFLV=1THENGOSUB840 

70 IFLV=2THENGOSUB910 

80 IFLV=3THENGOSUB1010 

90 GOSUB1200 

100 X=l:Y=21 

110 bx=i:by=5:bd=i:be=0 

120 CX=37:CY=5:CD*-l:CE=0 

130 IFLV=3THENBX=10:CX=27 

140 GOSUB1640 

150 GOSUB1770 

160 GOSUB1680 

1 70 POKE208 , X : POKE209 , Y : S YS828 : PR I NTOM* 

180 GOSUB1290 

190 IFY=0THEN280 

200 POKE208 , X : POKE209 , Y : GOSUB430 

210 IFGG=76ORGG=32THEN230 

220 GOTO300 

230 POKE208 , X : POKE209 , Y + 1 : GOSUB430 

240 IFGG«=32THENY=Y+1 

250 POKE208 , BX : POKE209 , BY : S YS828 : PR I NTOB* 

260 POKE208, CX: POKE209, CY: SYS828: PRINTOC* 

270 GOTO 140 

280 LV=LV+1 : IFLV=4THENLV»1 

290 SC=SC + ( L V*50 ) : POKE208 , 5 : POKE209 , 23 : S YS 

828: PRINTSC } Z GOTO60 

300 SOUND2, 300,75 

310 LI=LI-l: IFLI=0THEN340 

320 FORN=0TOLI 

330 POKE208 , 28+N : POKE209 , 23 : S YS828 : PR INT - 

"i :next:goto60 

340 PRINT"<CLR>":POKE208,12:POKE209,8:SYS8 

28 

350 PRINT" <LT RED > TOUGH MONKEYS !" 

360 PRINTTAB<11) "<GY 1J " 

370 POKE208 ,11: POKE209 ,12: S YS828 : PR I NT " i PU 
R1YOU SCORED : "SC 

380 PRINTTAB(ll) "<BLUXCUR DNXCUR DN>PRES 
S SPACE BAR" 
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All Action Climax 

This, the third arcade style game, is loosely inspired by a group of 
games in which the hero must jump over obstacles as he climbs up the 
ladder to get higher and higher through the screens. 

The evil monster that appears on each screen has in fact abducted 
the hero's girlfriend and locked her up. He now spends all of his time 
rolling large barrels down to crush the hero. 

There are different screen layouts and if you are successful then the 
game continues through from the first's screen to give higher scores. 

Movement is by the 'S' for right, 'A' for left, 'Cursor up' for up, 
Asterisk for down. The little hero can be made to jump by pressing 
the space bar. 
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390 KS=PEEK<198> 

400 IFKS< >60THEN390 

410 SOUND 1,250, 25 :GOTO40 

420 RESTORE510: FORN=0TO151 : READA: POKE 14848 

+N, A: NEXT: RETURN 

430 SYS837: GG=PEEK < 215) : RETURN 

440 COLOR 1,9, 2 

450 POKE208 , 2 : POKE209 , : S YS828 : PR I NTCHR* ( 9 

6) } CHR* (97) ; CHR* (98) 

460 POKE208 , 2 : POKE209 , 1 : S YS828 : PR I NTCHR* ( 9 

9) ; CHR* (100) J CHR* (101) 

470 POKE208 , 2 : POKE209 , 2 : SYS828 : PR I NTCHR* ( 1 

02 ) i CHR* ( 103 ) ; CHR* < 104 ) 

480 POKE208, 2: POKE209, 3: SYS828: PR I NTCHR* ( 1 

05) ; CHR* (106) ; CHR* (107) 

490 POKE208, l:POKE209,4:SYS828:PRINT M <*U}« 

*U>{*UM*UM*U>" 

500 RETURN 
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730 REM>> >>>>>>>> SET SCREEN <<<<<<<<< 

740 REM EEC INITIALIZE 333 

750 COLOR 1,3, 2 

760 COLOR0, 1 : COLOR4, 1 : RETURN 

770 REM >>>>>>>>>> SCREEN <<<<<<<<<<<< 

780 PRINT"£CLR>":COLORl,3,3 

790 POKE208 , 30 : POKE209 , 4 : SYS828 : PR I NTLEFT* 

<P*,9> | 

800 PO=34 : N=0 : GOSUB 1 250 

810 C0L0R1,3,3:F0RN=6T022STEP4 

820 POKE208 , : POKE209 , N : S YS828 : PR I NTP* ; : NE 

XTN: RETURN 

830 REM * * * ONE * * * 

840 GOSUB780 : FORN=6TO 1 8STEP4 

850 PO=INT<RND<l)*36>+2 

860 I FN< 23THENPOKE208 , PO : POKE209 , N : S YS828 : 

PRINT" " 

870 LP=RND ( 1 ) *36+2: IFLP=POTHEN870 

880 I FN<23THENPO=LP: GOSUB 1250 

890 NEXT: RETURN 

900 REM * * * TWO * * * 

910 GOSUB780 

920 F0RN=11T022 

930 POKE208 , 6 : POKE209 , N : S YS828 : PR I NT "€*+>< 

#+><*+>{#+>€*+>{*+ >«*+><*+>": NEXT 

940 POKE208 , 6 : POKE209 ,17: S YS828 : PR I NT " 

m 

950 POKE208 , 6 : POKE209 ,21: S YS828 : PR I NT " 

M 

960 POKE208 , 6 : POKE209 ,13: SYS828 : PR I NT " 

m 

970 PO=8 : N=6 : GOSUB 1 250 : PO= 1 8 : N= 1 : GOSUB 1 25 



980 PO=3:N=14:GOSUB1250:PO=18:N=18:GOSUB12 

50 

990 RETURN 

1000 REM * * * THREE * * * 

1010 PRINT" <CLR> " : GOSUB440: COLOR1 ,3,3 

1 020 POKE208 , : POKE209 , 7 : S YS828 : PR I NTGA* 

1 030 RESTORE 1 1 70 : FORZ2= 1 T06 : REAOXP , YP , DU 

1 040 POKE208 , XP : POKE209 , YP : S YS828 : PR I NTLEF 

T*(P*,DU) :next 

1050 PO=17:N=6: GOSUB 1250 

1060 PO=20:N=6: GOSUB 1250 

1070 PO=13:N=10:GOSUB1250 



Kinkey Dong 131 

1080 PO=24:N= 10: GOSUB 1250 

1090 PO=15:N* 14: GOSUB 1250 

1100 PO=22:N=14: GOSUB 1250 

1110 PO=6:N=18ZGOSUB1250 

1120 PO=31:N=18:GOSUB1250 

1130 PO=34:N=0: GOSUB 1250 

1 1 40 POKE208 ,11: POKE209 ,18: S YS828 : PR I NT " " 

1 1 50 POKE208 , 26 : POKE209 ,18: S YS828 : PR I NT " - 

1160 GOSUB 12 10: RETURN 

1170 DATA30,4,10,9,6,20,7,10,24,5,14,28 

1180 DAT A3, 18,32,0,22,39 

1190 REM * * * TOP * # * 

1200 GOSUB440 

1210 POKE208 , : POKE209 , 23 : S YS828 : PR I NT " SCO 

RE: "SC; 

1 220 POKE208 , 28 : POKE209 , 23 : S YS828 : FORN= 1 TO 

LI:PRINTCHR*(111) J :NEXT 

1230 RETURN 

1240 REM * * * LADDER * * * 

1250 COLOR1,9,3:FORZ=0TO3 

1 260 POKE208 , PO : POKE209 , N+Z : SYS828 : PRINTL* 

1270 NEXT: RETURN 

1280 REM >>>>>>>>>>> MOVE <<<<<<<<<<<< 

1290 GOSUB 1980 

1300 IFLE=1ANDX>1THENX=X-1:M*=CHR*(112) 

1310 IFRI = 1 ANDX< 37THENX=X+1 : M*=CHR* (111) 

1 320 I FUP« 1 THENM*=CHR* (113): GOTO 1 360 

1330 IFDN=1THENM*=CHR*<113) : GOTO 1400 

1340 IFFI=1THEN1420 

1350 RETURN 

1 360 POKE208 , X : POKE209 , Y - 1 : GOSUB430 : I FGG < > 

76THEN1380 

1370 Y=Y-l: GOTO 1330 

1 380 POKE208 , X : POKE209 , Y + 1 : GOSUB430 : I FGG=7 

6THEN1370 

1390 GOTO 1330 

1400 POKE208, X: POKE209, Y + l : GOSUB430: IFGG< > 

76THEN1340 

1410 Y=Y+l:GOTO1340 

1420 1FM*=CHR*( 1 12) THENXD=-1 : ELSEXD=1 

1430 IFX<1ORX>37THENXD=0 

1440 IFM*=CHR*<113)THENXD=0 

1 450 POKE208 , BX : POKE209 , BY : S YS828 : PR I NTOB* 

J 

1 460 POKE208 , CX : POKE209 , C Y : S YS828 : PR I NTOC* 
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1 470 RESTORE 1 530 : FORN= 1 T06 

1480 READA 

1490 Y=Y+A:GOSUB1540 

1500 IFPL=1THENN=11 

1510 NEXTN 

1520 GOSUB 1680: RETURN 

1530 DATA-1, -1,0,0, 1,1 

1540 x=x+xd:pl=0 

1550 POKE208, X: POKE209, Y + l : GOSUB430: IFGG< > 

32THENPL=1 : RETURN 

1560 IFX<1THENX=1 

1570 IFX>38THENX=38 

1 580 GOSUB 1 640 : GOSUB 1 680 

1590 SOUND2, 100,2 

1 600 POKE208 , BX : POKE209 , B Y : S YS828 : PR I NTOB* 

1610 POKE208,CX:POKE209,CY:SYS828:PRINTOC* 

; 

1 620 GOSUB 1 770 : POKE208 , X : POKE209 , Y : SYS828 : 

PRINTOM*; : RETURN 

1630 REM C I X. MAN 3 3 3 

1 640 POKE208 , X : POKE209 , Y : GOSUB430 

1650 OM*=CHR*<GG+32) : IFGG=32THENOM*=CHR*<3 

2) 

1660 PRINTM*; : RETURN 

1670 REM C C t BARRELS 3 3 3 

1 680 POKE208 , BX : POKE209 , B Y : GOSUB430 

1690 OB*=CHR*<GG+32) : IFGG=32THENOB*=CHR* (3 

2) 

1700 PRINTB*? : IFGG=79ORGG=80ORGG=81THEN300 

1710 POKE208,CX:POKE209,CY:GOSUB430 

1720 OC*=CHR*(GG+32) : IFGG=32THENOC*=CHR* (3 

2) 

1730 IFGG=77THENOC*=" " 

1740 PRINTB*; : 1FGG=79ORGG=80ORGG=81THEN300 

1750 RETURN 

1760 REM>>>>>>>>>> BARREL <<<<<<<<<<<<< 

1770 A=INT(RND<1)*10) 

1780 POKE208, BX: POKE209, BY+1 : GOSUB430 

1 790 I FGG=320RGG=76ANDA >5THENBE= 1 

1800 IFGG=78ORGG=82THENBE=0 

1810 BY=BY+BE: IFBE=0THENBX=BX+BD 

1820 POKE208,CX:POKE209,CY+1 : GOSUB430 

1 830 I FGG=320RGG=76 ANDA >5THENCE= 1 

1840 IFGG=78ORGG=82THENCE=0 
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1850 CY=CY+CE: IFCE=0THENCX=CX+CD 

1860 IFBX<1THENBD=1 

1870 IFBX>37THENBD=-1 

1880 IFCX<1THENCD=1 

1890 IFCX>37THENCD=-1 

1 900 I F < BX < 1 ORBX >37 ) ANDBY=2 1 THENBX= 1 : BD= 1 : 

BY=5:GOSUB1930 

1910 IF<CX<10RCX>37)ANDCY=21THENCX=37:CD=- 

1 : CY=5: GOSUB1950 

1920 RETURN 

1930 IFLV=3THENBX=10 

1940 RETURN 

1950 IFLV=3THENCX=27 

1960 RETURN 

1970 RETURN 

1980 LE=0: RI=0: UP=0: DN=0: FI=0: KS=PEEK ( 198) 

1990 IFKS=10THENLE=1 

2000 IFKS=13THENRI=1 

2010 IFKS=43THENUP=1 

2020 IFKS=49THENDN=1 

2030 IFKS*60THENFI=1 

2040 RETURN 

2050 RE S TORE2060 : FORN=0TO53 : RE ADA : POKE828 + 

N, A: NEXT: RETURN 

2060 D AT A24, 166 ,209, 164 ,208 ,32 ,240 ,255, 96, 

169,0, 133, 210, 169, 12, 133, 21 1 , 32, 60, 3 

2070 OATA164, 209, 240, 8,169,40,32, 102,3,136 

,208,248,165,208,32,102,3,177,210,133 

2080 DATA215,96,24, 101,210, 133,210, 165,211 

,105,0,133,211,96 

2090 RESTORE2100: FORN=0TO30: RE ADA: POKE882+ 

N , A : NEXT : RETURN 

2100 OATA160, 0,132,212, 132,214,169,208,133 

,213,169,56, 133,215,162,3 

2110 DATA177,212, 145,214,200,208,249,230,2 

13,230,215,202,16,242,96 
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Word Splash 




Spell or Swim 

This game is a more humane, more fun version of the well known 
hangman game. If the player cannot guess the word in time, then all 
the wrong letters push a character into the water. 

Words can be up to eight letters long but should not contain 
hyphens. The listing has about 60 words already included. More 
words may be added or the existing ones changed. 

If a letter is guessed, it appears at each correct position in the word. 
If it is not right then the poor victim is pushed one space along. 
Should the word be completed in time then the little figure pushes all 
the wrong letters back and a new mystery word is offered. 

The word is not shown if it is not guessed and since words are 
randomly selected it may be possible to have the same word again 
later. 

The program is very entertaining, educational and can be 
surprisingly addictive! 
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10 REM << WORD SPLASH * ISSI/GRE6/ JIM> > 

20 POKE52 , 55 : POKE54 , 55 : POKE56 , 55 : V0L8 

30 PRINT" <CLR}":GOSUBl 180: GOSUB1200:SYS8 

40 A=65298 : POKE A , PEEK ( A ) AND25 1 : POKEA + 1 , ( PE 

EK ( A+ 1 ) AN03 ) OR56 

50 GOSUB690 

60 W=INT<RND<1)*60>+1 

70 W*=D*(W) 

80 GOSUB500 

90 GOSUB890 

100 FL=0 

110 IFT*=W*THEN270 

120 IFLEN(G*)=10THEN150 

130 GOTO90 

140 REM * * * LOSE * * * 

150 GOSUB750 

160 RESTORE210 

170 FORN=1TO10 

180 RE AD A, B 

190 SOUNDl,A,B 

200 NEXTN 

210 DATA253,20,284,20,319,50,284,20 

220 DATA319, 20, 358, 50, 319, 20, 358, 20 

230 DATA379,50,358,50 

240 PRINT" «CLR>":POKE208, 1 5 : POKE209 , 6 : S YS8 

28: PRINT" «CYN>TOUGH LUCK !" 

250 GOTO450 

260 REM * * * WIN * * * 

270 RESTORE320 

280 F0RN=1T016 

290 RE ADA, B 

300 SOUND 1, A, B 

310 NEXTN 

320 DATA319,20,284,20,253,20,239,80 

330 DATA319, 20, 284, 20, 253, 20, 239, 80 

340 DATA319, 20, 284, 20, 253, 20, 239, 40 

350 DATA284, 40, 358, 40, 284 , 40, 319, 80 

360 IFG*=""THEN430 

370 FORN=LEN(G*)T01STEP-l 

380 6*=RI6HT*(6*,N-1) 

390 GOSUB1010: PRINT" " 

400 SOUND1,N*20,2 

410 FORP=1TO500 

420 NEXTP,N 

430 PRINT" fCLRJ" 
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440 POKE208,12:POKE209,5:SYS828:PRINT"«PUR 

> CONGRATULATIONS ! " 

450 POKE208, 13:POKE209, 18: SYS828: PRINT" <GY 

3J PRESS SPACE BAR" 
460 KS-PEEKC198) 
470 IFKSO60THEN460 
480 GOTO60 

490 REM >>>>>>>>>>> SCREEN <<<<<<<<<<< 
500 COLOR0, l:COLOR4,l : PRINT" <CLR>" 
510 POKE208, 15:POKE209,2:SYS828:PRINT"tPUR 
>WORD SPLASH" 

520 POKE208 ,14: POKE209 , 3 : SYS828 : PR I NT " i YEL 
j 

530 A*="<GY l){*+}{*+}{RVS ONXRED> 

<**><RVS OFF>" 
540 POKE208 , 4 : POKE209 ,11: S YS828 : PR I NT A* 
550 R*="{#*}{RVS ONX»»><Ry^ OFF > " : POKE208 
,16:POKE209,12:SYS828:PRINTR* v 

560 P*="<GRNXRVS ONJ CBLU2 
€GRN> €RVS OFF J" 

570 poke208 ,16: poke209 ,13: s ys828 : pr i nt " < r v 

s on>cgrnm**mrvs off>" 

580 poke208 , 32 : poke209 ,13: s ys828 : pr i nt " i r v 

s on}( a $}{rvs off>" 

590 forn=14to2l:poke208, 16: poke209, n: sys82 

8:printp*:next 

600 poke208, 16:poke209,22:sys828:print"trv 

s onxor} <rvs off}" 

610 poke208,4:poke209, 13: sys828: print" €wht 

>WORD :-" 

620 POKE208 , 7 : POKE209 ,17: SYS828 : T*= " " : G*= " 

M 

630 FORN-lTOLEN(W«) 

640 PRINT" CBLU>-"J :T*=T*+" " 

650 NEXTN 

660 POKE208, 7: POKE209, 20: SYS828: PRINT" «LT 

RED! GUESS ?" 

670 RETURN 

680 REM>>>>>>>>> INITIALIZE <<<<<<<<<< 

690 D I MD* ( 60 ) : RESTORE 1 050 

700 FORN=1TO60:READD*<N) 

710 NEXT 

720 RESTORE 1 1 30 : FORN=0TO39 : READA : POKE 1 4848 

+N,A:NEXT 

730 RETURN 
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740 REM>>>>>>>>>> SPLASH <<<<<<<<<<<<< 

750 POKE208 ,16: POKE209 , 10 : SYS828 

760 M*=CHR*(A) 

770 PRINT" ■ 

780 x=16: y=10: f0rz=1t03: poke208, x: poke209, 

y:sys828: print" " 

790 x=x+1 : y=y+1 : poke208, x: poke209, y: sys828 

:printm» 

800 sound 1 , 700 , 5 : fort» 1 to60 : next 

810 poke208, x: poke209, y: sys828: printm* 

820 NEXT 

830 COLORl,7,5:SH*=CHR*<98)+CHR*(99) +CHR*( 

100) 

840 POKE208 , X- 1 : POKE209 , Y : S YS828 : PRINTSH* 

850 SOUND3, 900, 30: FORT=1TO220: NEXT 

860 POKE208,X-l:POKE209,Y:SYS828:PRINT- 

870 FORT= 1 TO30 : NEXT : RETURN 

880 REM>>>>>>>>>>> INPUT <<<<<<<<<<<<< 

890 GETA* 

900 IFA*<"A"ORA*>"Z"THEN890 

910 SOUND2,200,10 

920 FL-0 

930 FORN=lTOLEN<W*) 

940 IFMID«(W*,N, IX >A*THEN960 

950 POKE208,6+N:POKE209, 16: SYS828: PRINTA*: 

MID*(T*,N, 1)=A*:FL=1 

960 NEXTN 

970 IFFL=0THEN1000 

980 SOUND 1,650, 20 

990 RETURN 

1000 G*=A*+G* 

1010 POKE208, 6: POKE209, 10: SYS828 

1020 IFLEN<G*) /2=INT(LEN(6*)/2)THENA=96:EL 

SEA-97 

1030 PRINTG*;CHR*(A) 5CHR*(32) 

1040 RETURN 

1050 DAT A ACUTE, AGILE, BROKE, CANDY, COUGH, DRY 

LY, GNOME, MISTY, NYMPH, PYGMY 

1 060 DAT ABARLE Y , BODK I N , CEPT I C , DEVOUR , E I GHT 

Y, EXOTIC , FLINCH, GLORIA, HYMN, LYRICS 

1070 D AT AMETHYL, SPYING, SYRUP, YOGHURT, VISUA 

L , WOBBLE , ANCHOVY , RELAX , RHYTHM , RHUBARB 

1 080 D AT ASKETCH , F ASC I ST , BOR I NG , F AT I GUE , FRO 

WN , TRUANT , LEMM I NG , Z I NC , GLAMOUR 
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1090 DATAHYDRATED 

1 100 DATAKETCHUP, MYSTIC , NOISY, OCTOPUS, SQUI 

D, RAMBLER, SATCHEL, SEXTANT, YULETIDE 

1110 DATASWINOLE,PLAYER 

1 1 20 DAT AOOCKER , DEST I NY , FUTURE , LENT I L , FORE 

IGN, LOGICAL, WINTER, THIRST, NAIVE 

1130 DATA56,56, 18, 124,144,40,36,34 

1140 DATA56.56, 144,124,18,40,72,136 

1150 DATA1, 16,72,36,2,96,24,7 

1160 DATA32, 161, 164,9,34,52, 123,124 

1170 DATA130, 16,36,8,51,192,12 

1 180 RESTORE1 190: FORN=0TO8: RE AD A: POKE828+N 

, A: NEXT: RETURN 

1190 DATA24, 166,209,164,208,32,240,255,96 

1200 RESTORE1210: FORN=0TO30: RE ADA : POKE882+ 

N, A: NEXT: RETURN 5^ 

1210 DATA160,0, 132,212, 132,214, 169,208, 133 

,213, 169,56, 133,215, 162,3 

1220 DATA177, 212, 145, 214, 200, 208, 249, 230, 2 

13, 230, 215, 202, 16, 242, 96 
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Ten out of Ten 

This single program can offer questions for 'primary', 'junior' and 
'senior' levels (that is everyone). The question can be of any one type, 
selected from plus, minus, multiply and divide. The questions and 
answers are drawn to a blackboard to help make the presentation 
attractive. 

Selecting the primary level will set up problems which involve 
counting two sets of characters to produce a total. The junior level 
provides options for the four types of arithmetic and produces 
questions which have whole number answers. It should be possible 
for most adults and older children to work these out mentally. 

The senior level would require a very strong mental arithmetic 
ability and is designed to set problems which can be worked out using 
pencil and paper or even a calculator. 

The answers are required to be typed in and then sent to the 
computer using the 'RETURN' key. This means that mistyped 
answers can be corrected if spotted before the 'RETURN' key is 
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pressed. The program will allow up to two wrong trys before revealing 
the correct answer. 

At the end of ten questions the computer will print up a 'report' 
showing the number of correct answers and a percentage score. 

10 REM <<<<<<<< SUM FUN <> ISSI/JIM>>>> 
20 REM 

30 A=RND ( -T I ) : VOL 8 : GOSUB 70 

40 CHAR , 12,7," 1>PRIMARY",1: CHAR , 12,9,"2> 
JUNIOR", i: CHAR ,12,11, "3>SENIOR" , 1 
50 GETKEY A*: IF A«<"1" OR A*>"3" THEN GOTO 
50 

60 sound 1,400, 10: for n=l to 200: get b*:ne 

xt n:lev=val<a*) :goto 410 

70 color 0,15,0: color 4, 15, 2: color 1,10,1: 

GRAPHIC 1,1 

80 DRAW 1,168,10 TO 208,175 TO 200,175 TO 

164,20 TO 120,175 TO 112,175 

90 DRAW TO 160,10 TO 168, 10: PAINT 1,164,15 

100 GOTO 470 

110 G*="" 

120 CHAR , 12, 13, G*,l: GETKEY A*: SOUND 1,500 

,10 

130 IF <A*>="0" AND A*<="9")OR A»»"-"OR (A 

*=CHR*(20)AND LENCG*)>0> THEN 170 

140 IF G*»"" OR A«OCHR»<13> THEN 120 

150 IF VAL(G*)«ANS THEN RIT»l:ELSE RIT=0 

160 CHAR ,12,13," ",l:RETUR 

N 

170 CHAR , 12, 13, G*: IF A*=CHR*(20) THEN G*= 

LEFT*(G*,LENtG*)-l) :A»="" 

180 g*=g*+a*:goto 120 

190 FOR G=l TO 2: GOSUB 110: IF RIT=1 THEN 2 

20 

200 SOUND 1 , 300 ,15: SOUND 1 , 500 , 25 : NEXT G 

210 GOTO 470 

220 SOUND 1,300, 10: SOUND 1 , 400, 10: SOUND 1, 

500, 10: g=2: next g:tt=tt+i:goto 470 

230 GOSUB 470: CHAR , 14,7,"1> * + * " , 1 : CHAR 

,14,9,"2> '-'",1 

240 CHAR ,14,11,"3> **'",l:CHAR , 14, 13, "4 

> */*",i:def fnkw)=a+b:s*=" + " 

250 getkey a*: z=val < a*) : if z< 1 or z>4 then 

250 
260 SOUND 1 , 600, 10 
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270 IF 2=2 THEN DEF FNI <W> =A-B: S*="- " 

280 IF Z=3 THEN DEF FNI (W) =A*B: S*="*" 

290 IF Z=4 THEN DEF FNI <W> =A/B: S*=" / " : DIV= 

1 

300 RETURN 

310 LIM=8:DIV=0: IF I_EV=2 then lim=12:gosub 

230 
320 IF LEV=3 THEN LIM=25:GOSUB 230 
330 TT=0:GOTO 470 

340 A=INT(RND(1)*LIM) +l:B=INT(RND(l)*LIM) + 
1 

350 IF DIV=1 THEN A=A#B 
360 GOSUB 470: N*=STR* ( P) : CHAR , 10, 6, N*+" >" 

,1 

370 IF LEV=1 THEN 390 

380 Q*=STR*<A)+" »+S*+STR*(B) : CHAR , 12, 8, Q 

*, 1 : ANS=FNI ( 1 ) : RETURN 

390 A*="":FOR N=l TO A: A*=A*+ - i" SJ " : NEXT N 

:b*="":for n=i to b:b*=b*+"< a x> m :next n 
400 char ,12,8,a*+" + " , 1 : char ,12,10,b*+" 
=", i:ans=a+b: return 

410 gosub 310: for p=l to 10: gosub 340:gosu 
b 190: next p: gosub 470 

420 CHAR ,17,6, "REPORT. ", l: CHAR ,16,7," 

-,1 

430 W*=STR* < TT ) + - WERE CORRECT. ": CHAR ,12, 

10,W*,1 

440 W*=" THAT'S " +STR*(TT/ 10*100) +" %":CHAR 

,14,12,W*, 1 
450 CHAR , 10,15, "PRESS SPACE TO PLAY.",1:G 
ETKEY A*: IF A*<>" " THEN 450 
460 GOSUB 470: GOTO 40 

470 W*="":FOR N=l TO 20:W*=W*+" - : NEXT N:C 
OLOR 1 , 1 

480 FOR N=5 TO 15: CHAR 1 , 10, N, W*, 1 : NEXT N: 
RETURN 
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Tomorrow the World 

This is a geographic quiz based upon the map of Great Britain. The 
game is very straightforward and consists of questions which relate to 
key towns or cities, and the county to which they belong. Options are 
given to guess the county or the town. A point is plotted on the map 
to indicate the location of the town or city. 

The central core of the program could be developed to produce 
either a more detailed map or, as the heading suggests, the world 
could be plotted next! 

Another way to develop this program would be to extend the data 
to include more or all counties and the county towns. In fact you 
could find that the research of the facts to put into the listing is even 
more educational than the program itself! Due to memory 
restrictions the program must be entered and saved as two separate 
programs. The first will then load the second when it is run. If you are 
using disk then the device number '8' will have to be added to the load 
instruction. 
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10 REM>>>>>>TODAY EN6LANO<< < < < < < 

20 REM>>>>>>GREG<<<<<<<<<<<<<<<< 

30 COLOR0, 1 : COLOR4, 1 : GRAPHIC1 : SCNCLR 

40 GOSUB70 

50 POKE45 , 207 : POKE46 ,21: POKE47 , 207 : POKE48 , 

21 : POKE49, 207: POKE50, 21 : CLR 

60 LOAD "GAME": RUN 

70 COLOR 1 ,2, 7: DRAW 1 , 96, 14: F0RN=1T058 

80 READX,Y:Y=199-INT(Y/2> :X=X/2: DRAWTOX, Y: 

NEXT 

90 DRAW1 , 71 , 78: F0RN-1T016: READX, Y: Y=199-IN 

T(Y/2) :x=x/2:drawtox, y:next 

100 oraw1 , 96, 108: f0rn=1t03: readx, y: y=199- < 

y/2) :x=x/2:drawtox,y:next 

110 DRAW1,103,120:FORN=1TO3:READX,Y:Y=199- 

<y/2) :x=x/2:drawtox,y:next 

120 DRAW1, 143, 17l:F0RN=lT04:READX,Y: Y=199- 

t Y / 2 ) : X=X / 2 : DRAWTOX , Y : NEXT : RETURN 

130 OATA228, 377, 234, 359, 210, 329, 234, 341 , 25 

8 , 335 , 258 , 305 , 228 , 287 

1 40 DAT A252 , 275 , 228 , 269 , 252 , 263 , 270 , 245 , 27 

6,215,306,203,318,173,294,179,324 

150 DATA149,318, 137,354, 143,360, 113,324,83 

, 354, 77, 330, 53, 282, 61 , 253, 47, 234, 53 

160 DATA216,35, 174,23, 165,24,210,71,246,71 

,258,95,234,83,204,95,198,107,216 

170 DATA113,216,137,198, 131,216,155,252,15 

5, 240, 173, 246, 191 , 234, 191 , 222, 209 

180 DATA234, 227, 204, 215, 192, 227, 204, 245, 19 

8,263,180,239,168,245,180,287, 162 

190 DATA281, 180,317,168,341,192,347,180,36 

5, 198, 359, 192, 371 

200 DATA172, 229, 184, 199, 172, 187, 160, 187, 17 

2, 139, 160, 109, 118, 103,82,85 

210 DATA58,80,80, 130, 100, 157,70, 163,82, 199 

, 1 10, 200, 120, 240, 142, 241 

220 DATA204, 181,210,199,192,181 

230 DATA206, 151,210, 160,206, 157 

240 DAT A280 , 49 , 292 , 43 , 298 , 49 , 286 , 55 

250 SC=0 

260 GRAPHIC0:SCNCLR:COLOR1,5,4:CHAR1, 14, 1, 

"TODAY ENGLAND" 

270 COLORl,8,5:CHARl, 12,3, "TOMORROW THE WO 

RLD":COLORl,7,5 

280 CHAR1, 1,6, "CHOOSE OPTION: " : COLOR1 , 9, 5: 
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CHAR1, 11,8, "1 GUESS COUNTIES" 

290 CHAR1, 11, 10, "2 GUESS CITIES" : SC*="SC 

ORE = "+STR*(SO :CHAR1, 11, 12.SC* 

300 SC=0 

310 GETKEYA*:0=VAL(A*) : IFO< 1ORO2THEN310 

320 GRAPH I C 1 : RESTORE490 

330 F0RC=1T016: COLOR1 ,2, 7: READN*, X, Y, CO* 

340 X-X/2: Y=199-<Y/2) : DRAW1 , X, Y: TR=3 

350 IFO=1THENCHAR1,20, 1, "CITY IS ?":CHAR1, 

20, 3, N* 

360 I FO=2THENCHAR 1,20,1, "COUNTY IS ?":CHAR 

1,20, 3, CO* 

370 IFO«1THENCHAR1,20,5, "COUNTY IS ?":ELSE 

CHAR1,20,5, "CITY IS ?" 

380 H=20: V=7:GOSUB590Z IFO=lANDDT*=CO*THEN4 

30 

390 ifo=2anddt*=n*then430 

400 tr=tr-i:tr*=str*(tr) +■ tries left-:cha 

R1,20,9,TR* 

410 FORT=1TO800:NEXT:CHAR0,20,9, "00 TRIES 

LEFT" 

420 IFTR=0THEN570:ELSEGOTO350 

430 GOSUB480 

440 CHAR 1,20, 9, "CORRECT" : FORT=1TO800: NEXT: 

SC=SC+TR 

450 DRAW0,X,Y 

460 gosub480:next 

470 fort=1to800:next:goto260 

480 dt*="":fort=itoi9:dt*=dt*+" ": next: for 

t= 1 to 10 : char 1, 20, t,dt*: next: return 

490 datamanchester.258, 171 , gtr. manchester, 

chester, 252, 149, cheshire 

500 dataleeds,282, 175, yorkshire, hull, 308, 1 

81,humberside 

510 dataliverpool,250,163,merseyside,birmi 

ngham , 274 , 1 1 9 , m i dl ands 

520 dat alondon , 3 1 8 , 85 , gtr . london , br i stol , 2 

60, 83, AVON 

530 DATACARDIFF, 244, 95, GLAMORGAN, CAMBRIDGE 

,322, 115, CAMBRIDGESHIRE 

540 DATAGLASGOW, 216, 261 , STRATHCLYDE, EDINBU 

RGH, 238, 261 , LOTHIAN 

550 DAT AABERDEEN , 250 ,315, GRAMP I AN , NEWC ASTL 

E , 266 , 223 , NORTHUMBERLAND 

560 DATABELFAST, 170, 200, ARMAGH, DUBLIN, 160, 
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160, DUBLIN 

570 GOSUB480: CHAR 1,20,1, "CITY IS" : CHAR1 , 20 

, 3,N*:CHAR1,20,5, "COUNTY IS" 

580 CHAR1 , 20, 7, CO*: FORT=1TO1800: NEXT: G0T04 

50 

590 DT*="" 

600 GETKEYA* 

610 IFA*=CHR*(13)THEN640 

620 IFA*=CHR* (20) THENDT*=LEFT* <DT*, LEN <DT* 

)-l) :A*="" 

630 dt*=dt*+a*:di*=dt*+" ":chari,h,v,di*:g 

OTO600 
640 RETURN 



25 
Character Builder 




The Create Your Own Monster Kit 

Character building can be as much fun as playing a game. This 
'utility' enables 32 characters to be defined easily. 

The built-in characters from 96 to 127 are first displayed and then 
the opportunity is given to adapt them, or create completely new 
ones. The definition values can be noted down and then used in your 
own programs. Complete sets can be saved on tape to produce a 
library of useful characters. 

Although many of the programs in this book have had characters 
designed for them, others use standard characters. With this 
character definer you can dramatically improve the appearance of 
these games. You may even wish to change all the ones in the book! 



Character builder reference guide 

After loading, the grid starts with the first character picked up. This 
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may then be Edited, Cleared, or any of the following can be selected 
by pressing the first letter of the option. 

Clear. This clears the grid completely. 

Pick up. Asks for character number, then as the last digit is pressed 
that character will be transferred to the grid. It can then be Edited, 
Changed, etc. Note: three characters must be entered, therefore 2 
would be 002. 

Edit. Places the flashing cursor at the top left of the grid. It can then 
be moved around using A, S, * and cursor up. Space bar will set or 
unset a point. When finished Q is pressed. 

Press T' for tape save. 

Press 'L' to load data from tape. 

10 REM << CHAR BUILDER * ISSI /JIM/GREG >> 

20 POKE52, 55: POKE54, 55: POKE56, 55: GOSUB1010 

: SYS882 

30 POKE65298 ,192: POKE65299 , ( PEEK ( 65299 ) AND 

3 ) 0R56 

40 DIMF(8> ,D(32,8) 

50 CH=1 

60 SCNCLR:GOSUB710 

70 GOSUB580 

80 GOSUB770 

90 REM >>>>>>>>>> MAIN LOOP <<<<<<<<<< 

100 GETKEYA* 

110 IFA*="C"THENGOSUB170 

120 IFA*="P"THENGOSUB210 

130 IFA*="E"THENGOSUB230 

140 IFA*="T"THENGOTO450 

150 IFA*="L"THENGOTO520 

160 GOTO 100 

170 A*=" -:REM 8 SPACES 

180 F0RY=2T09: CHAR1 , 26, Y, A*: B*=STR* (0) + - 

- : CHAR1 , 35, Y, B*: NEXT 

190 CR*=" ":GOSUB680: RETURN 

200 REM >>>>>>>>> PICK UP <<<<<<<<<<<< 

210 GOSUB 1 70 : GOSUB860 : GOSUB770 : GOSUB670 : RE 

TURN 

220 REM >>>>>>>>>>> EDIT <<<<<<<<<<<<< 

230 H=26:V=2:COLORl,2,7 

240 LO=3072+V*40+H:AB=PEEK(LO) :POKELO,AB+l 

28: FORT=1TO30: NEXT 

250 POKELO.AB 

260 GOSUB870 
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270 IFLE=1ANDH>26THENH=H-1 

280 IFRI=1ANDH<33THENH=H+1 

290 IFUP=1ANDV>2THENV=V-1 

300 IFDN=1ANDV<9THENV=V+1 

310 IFQ=1THENA*="": RETURN 

320 IFFI=0THEN390 

330 G=H-25:X=V-1 

340 I F AB=32THENDD=42 : W=B KG): ELSEDD=32 : W=0 

350 POKELO, DD: J=D (CH, X) : IFW=0THEN370 

360 J=JORW:D(CH,X)=J:GOTO380 

370 C=BI <G) :W=(NOTC)+i:K==D<CH,X) : J=K+W:D(C 

H,X)=J 

380 GOSUB410:SS=14848+< (CH-1 ) *8) +X-1 : POKES 

S, J 

390 GOTO240 

400 REM >>>>>>>>>>> VIEW <<<<<<<<<<<<< 

410 BB=X:X=D(CH,BB> : GOSUB820: CHAR1 , 26, V, X* 

420 P*=- ":XX*=STR*<X> :CHAR1,36,V,P*:CHA 

Ri,35, V,XX* 

430 X=BB: RETURN 

440 REM >>>>>>>>>>> SAVE <<<<<<<<<<<< 

450 RESTORE490: FORT=0TO31 : READA: POKE 15360+ 

T, A: NEXT 

460 CHAR1,0,21, " " 

470 SYS 15360 

480 GOTO60 

490 DATA169, 1, 162, 1, 160, 255,32, 186,255, 169 

,0,32, 189,255, 169,0, 133,208, 169,58 

500 DATA133,209, 162,0, 160,59, 169,208,32,21 

6,255,96 

510 REM >>>>>>>>>> LOAD <<<<<<<<<<<<< 

520 RESTORE560: FORT=0TO23: RE ADA: POKE 15392+ 

T, A: NEXT 

530 CHAR1,0,21, " " 

540 SYS 15392 

550 GOTO60 

560 DATA169, 1 , 162, 1 , 160, 255, 32, 186, 255, 169 

,0, 32, 189, 255, 169, 0, 162, 255, 16,0 

570 DATA255,32,213,255,96 

580 COLOR0, 1 : COLOR4, 1 : COLOR1 , 8, 5: SCNCLR 

590 CHAR1,0,0,"NO. CHAR NO. CHAR" 

600 FORX=0TO23 : CHAR1 , X , 1 , - - - : NEXT 

610 F0RY=3T018:D*=STR*(Y+93) : CHAR1 ,0, Y, D*: 

CHAR1,7,Y,CHR*(Y+93):NEXT 

620 FORY=3TO18:D*=STR*(Y+109) : CHAR1 , 13, Y, D 
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*:CHAR1,21, Y,CHR*<Y+109> : NEXT 

630 COLORl,7,4:A*="{RVS ON> CRVS 

OFF> " : CHAR1 , 25, 1 , A*, 1 : F0RT=1T08 

640 B*="<RVS ON> {RVS OFF> €RVS ON> 

<RVS off>-:chari,25,t+i,b*:next 

650 CHAR1,25, 10,A*,1 

660 COLOR1, 6, 5: CHAR1.0, 21, "CHARACTER DISPL- 
AYED: " 

670 COLORl,6,5:CR*=STR*<CH+95>+" " 
680 CHAR1,20,21,CR* 
690 RETURN 

700 REM >>>> INITIALIZE VARIABLES <<<< 
710 AD=14848 

720 forn= 1 t032 : form= 1 t08 : d ( n , m ) =peek ( ad ) : a 

d=ad+i:nextm,n 

730 restore740 : fort= 1 tos : readb i ( t ) : next 

740 DATA128, 64, 32, 16,8,4,2,1 

750 RETURN 

760 REM >>>>>>>> DRAW CHAR <<<<<<<<<<< 

770 Y=2:BB=X:COLORl,2,7 

780 FORN= 1 T08 : X=D ( CH , N ) : GOSUB820 

790 CHAR1,26,Y,X*:XX*=STR«(X) :P*=" " : CHA 

Rl,36,Y,P*:CHARl,35,Y f XX*:Y=Y+l 

800 NEXT 

810 x=bb: return 

820 X*= " 00000000 " : U= 1 28 

830 FORM= 1 TOS : Z=U ANDX : I FZ < >0THENB*= " * " : ELS 

EB*=" " 

840 U=U/2: MID* < X*, M, 1 ) =B»: NEXT: RETURN 

850 REM >>>>>>>> INPUT CHAR <<<<<<<<<< 

860 COLORl,6,5:CHARl,24, 13, "CHARACTER ?":X 

=35: Y=13: GOSUB950: RETURN 

870 q=0 : le=0 : r i =0 : up=0 : dn=0 : f I =0 : ks=peek ( l 

98) 

880 IFKS=10THENLE=1 
890 IFKS=13THENRI=1 
900 IFKS=43THENUP=1 
910 IFKS=49THENDN=1 
920 IFKS=60THENFI=1 
930 IFKS=62THENQ=1 
940 RETURN 

950 n*="-:b*=" ":chari,x,y,b*:forn=ito3 

960 GETKEYB*: IFVAL <B*> <0ORVAL <B*) >9THEN960 
970 N*=N*+B*: CHAR1 , X, Y, N*: NEXT: CH=VAL <N*> 
980 IFCH<96ORCH>127THEN950 
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990 CH=CH-95: RETURN 

1000 POKE65298, 196: POKE65299, 209: STOP 

1010 RESTORE 1 020 : FORN=0TO30 : RE AD A : POKE882 + 

N, A: NEXT: RETURN 

1020 DATA160,0, 132,212, 132,214, 169,208,133 

,213, 169,56, 133,215,162,3 

1030 DATA177,212, 145,214,200,208,249,230,2 

13, 230, 215, 202, 16, 242, 96 
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Da Do RAM ROM 

This three octave utility enables you to build up song sections and 
then to sequence them in harmony. Once produced in memory they 
can be saved, loaded, modified or just played for enjoyment. 

Each sequence is built up first and then the song made is used to set 
the order in which each sequence is played. The program will prompt 
if you attempt to do things in the wrong order. 

MENUs are used to display the options at each stage. If the option 
you require is not displayed pressing 'X' will exit to another menu. 
Selecting sequence mode at the beginning will produce the keyboard 
display. 

The SEQUENCE CURSOR is moved left or right over the 
sequence boxes using the CBM KEY or the SHIFT KEY. The note 
required is then selected by using the cursor keys to move the note 
cursor. As the note cursor moves it will change to show the note 
played. The octave is indicated by the colour, sharps are 'reversed 
characters'. 
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When the note required is found then press space to enter the note 
into the sequence. The same note can then be placed elsewhere in that 
sequence by using the sequence cursor. 

Selecting the playback mode will enable each sequence to be 
listened to. Pressing 'F for faster and 'S' for slower will alter the 
tempo during playback. 

A finished song can be saved to tape and loaded later from the 
appropriate menu. That way you can build up your own 'digital 
music' collection and if you are prone to bragging you can even tell all 
your friends that you have your own digital recording equipment! 

10 REM >>> SEQUENTIAL CIRCUIT <<< 

20 REM>>>>DAVID< <<<<<< 

30 VOLS 

40 COLOR4,2,4:COLOR0,2,5:COLOR1, l:PRINTCHR 

*<8)CHRS<142) 

50 dimn<35) , nc<35) ,mu<7, 1, 15) ,aa<7, 1, 15) :r 

em 8 sequences, 2 channels, 16 notes 

60 forr=0to35:readn(r) : next 

70 forr=0to35 : readnc ( r ) : next 

80 db=3714:dp=12:sb=3436:sp=0:tempo=4:si=0 

::so=0:rem song not in 

100 PRINT"{CLR>":CHAR1,9, 1, "{RVS ONI* SEQU 
ENTIAL CIRCUIT *{RVS OFF> " : COLOR1 , 10, 2 
110 CHAR1, 11,4, "BY DAVID WHITTAKER" 
120 COLOR1, l:CHARl, 11, 10, "1. SONG MODE":C 
HAR1, 11, 13, "2. SEQUENCE MODE" 
130 GETA*: IFA*="l"THENGOSUB 1090: GOTO 100 
140 IFA*="2"THENGOSUB170:GOTO100 
150 GOTO130 

160 REM * X X X X X X X * **% XXXXXXXXXXXXXXXXXXXX 
170 COLOR1, l: PRINT" {CLR>"SPC (12) "{RVS ON> 
SEQUENCE MODE {RVS OFF X CUR DNXCUR DNXC 
UR DNXCUR DNXCUR DNXCUR DN>" 
180 FORR=1TO40: PRINT" t*P>"; : NEXT 
190 PRINT" C HOME J {CUR DNMCUR DNXCUR DN>tC 
UR DNXCUR DNXCUR DNXCUR DNXCUR DNXCUR 
DNXCUR DNXCUR DNXCUR DNXCUR DN>€CUR D 
NXCUR DNXCUR DNXCUR RTXCUR RT>"; 
200 F0RR=1T036: PRINT" {*P>" J 
210 NEXT: PRINT 

220 F0RR=1T05: PRINT" {CUR RTXCUR RT>"; 
230 F0RS=1T03 
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240 PRINT" {*G>{RVS ON> {RVS OFF> {RVS ON> 

{RVS OFF> {*G>{RVS ON> {RVS OFF> {RVS ON} 

{RVS OFF} {RVS ON> {RVS OFF > "; 

250 NEXT 

260 PRINT" {CUR LM*M>" 

270 NEXT 

280 F0RR=1T02: PRINT" {CUR RT>{CUR RT > " ; 

290 F0RS=1T03 

300 PRINT" {*G}{"H} {~G> {*G>{"H} { A B} {"G> 

f 

310 NEXT 

320 PRINT" {CUR L>{*M>" 

330 NEXT 

340 F0RR=1T039: PRINT" {*Y}"; 

350 NEXT :POKE4071, 119 

360 F0RR=8T023: POKE3072+R#40, 101 : POKE3072+ 

R*40+39, 103: NEXT 

370 PRINT" {HOME >" 

380 CHAR1,37,9, "T" 

390 CHAR1.36, 10, "{ "U> {"*}{" I > " 

400 F0RR=11T014:CHAR1,36,R, "{*Q}{RED} {BLK 

}{*W>":NEXT 

410 CHAR1,36, 15, " { A J > { A *> { A K> " 

420 CHAR1,3, 10, "{*A>" 

430 F0RR=4T032STEP2:CHAR1,R, 10, "{"*}{*R}» : 

NEXT 

440 CHAR1,34, 10, "{ A *>{*S>" 

450 CHAR1, 1, 11, "Cl{ A -}» 

460 F0RR=4T034STEP2:CHAR1,R, 11, " { A -}":NEX 

T 

470 CHAR1,3, 12, "{*Q>" 

480 F0RR=4T032STEP2:CHAR1,R, 12, "{"*}{"+}" : 

NEXT 

490 CHAR1,34, 12, "{ A *>{*W>» 

500 CHAR1, 1, 13, "C2{ A ->" 

510 F0RR=4T034STEP2:CHAR1,R, 13, " {"-}»:NEX 

T 

520 CHAR1,3, 14, "{*Z>» 

530 F0RR=4T032STEP2:CHAR1,R, 14, "{^*>{*E>": 

NEXT 

540 CHAR1,34, 14, "{"*>{*X>" 

550 GOSUB1020 

560 FORR= 12T023 : POKEDB- 1024+R , 37 : POKEDB- 10 

24+12+R, 113:NEXT 

570 REM ***X X X *»***»***»»»♦* X XXXXXXXXXXX 
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580 CHAR1,9,3, "WHICH SEQUENCE 1 TO 8 ? " 

590 GET A*: IFA*="X M THENRETURN 

600 SQ= V AL ( A* ) - 1 : I F A*< "1" OR A* > " 8 " THEN590 : E 

LSEPRINTA*: 6OSUB1800 

610 CHAR1, 11,3, "RECORD OR PLAYBACK ? " 

620 GETM*: IFM*="X"THENRETURN 

630 IFM*< >"R"ANDM*< > "P" THEN620: ELSEPRINTM* 

.-GOSUB1800 

640 I FM*= "R" THENGOSUB670 : CHAR 1,0,0," 

":GOTO610 
650 I FM*= " P " THENGOSUB890 : CHAR 1,0,0," 

" :GOTO610 
660 REM RECORD MODE 
670 CHAR1, 0,0, "RECORD" 
680 CHAR1, 10,3, "CHANNEL 1 OR 2 ? " 
690 GET A*: I FA*="X"THENGOSUB 1800: RETURN 
700 I F ASK " 1 " ORA* > " 2 " THEN690 : ELSECH=VAL ( A* ) 
- 1 : PR I NT A* : GOSUB 1 800 

710 POKESB+SP, 90: CHAR1, 12,3, "JUST A MOMENT 
. . . " : GOSUB1820: GOSUB1800 
720 GETA*: IFA*="X"THENRETURN 

730 IFA*="£CUR RT> " ANDDP<35THENPOKEDB+DP, 1 
ll:DP=DP+l:SOUNDl,N(DP) ,5 

740 1FA*="€CUR LJ " ANDDP>0THENPOKEDB+DP, 1 1 1 
: DP=DP- 1 : SOUND 1,N( DP) ,5 
750 POKEDB+DP.NC (DP) 
760 Z=PEEK(1347) 

770 IFZ=2ANDSP>0 THENPOKESB+SP, 32: SP=SP-2 
780 I FZ= 1 ANDSP< 30THENPOKESB+SP , 32 : SP=SP+2 
790 NC=SP/2 
800 POKESB+SP,90 
810 IFA*OCHR*(13)THEN860 
820 SI=l:MU<SQ,CH,NC)=N(DP) 
830 X=NC(DP) :CC=37: IFDP<12THENCC=0 
840 IFDP>23THENCC=113 

850 POKESB+SP+80+CH*80, X : POKE2492+SP+CH*80 
,CC:SOUNDl,N(DP) ,5 

860 IFA*=" "THENMU(SQ,CH,NC)=0:POKESB+SP+8 
0+CH#80, 46: SOUND 1 ,0, 5 
870 GOTO720 
880 REM PLAYBACK MODE 

890 IFSI=0THENCHAR1, 13,3, "NONE IN MEMORY!" 
: FORT=1TO1000: NEXT: GOSUB 1800: RETURN 
900 CHAR1, 0,0, "PLAYBACK" :P=0 
910 GETA*: IFA*="X"THENRETURN 
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920 GOSUB990 

930 M=MU ( SQ , , P ) : I FMTHENSOUND 1 , M , TEMPO*3 

940 N=MU < SQ , 1 , P ) : I FNTHENSOUND2 , N , TEMPO*3 

950 IFM+N=0THENFORT=1TOTEMPO*50: NEXT 

960 P=P+l: IFP=16THENP=0 

970 GOTO910 

980 REM UPDATE TEMPO 

990 I F A*= - F " THENI FTEMPO >0THENTEMPO=TEMPO- 1 

:GOTO1020 

1000 IFA*= " S " THENIFTEMPCK 8THENTEMPO=TEMPO+ 

l:GOTO1020 

1010 RETURN 

1020 FORR=3549TO3629STEP40: POKER, 32: NEXT 

1030 POKE3669,248: IFTEMPO>lTHENPOKE3669, 16 



1040 IFTEMPO>2THENPOKE3629,248: IFTEMPO>3TH 

ENPOKE3629, 160 

1050 IFTEMPO>4THENPOKE3589,248: IFTEMPO>5TH 

ENPOKE3589, 160 

1060 I FTEMPO >6THENPOKE3549, 248: IFTEMPO>7TH 

ENPOKE3549, 160 

1070 RETURN 

1080 REM OPENING SCREEN 

1090 PRINT" <CLR> ": COLOR1 , 1 

1100 CHAR0, 14,0, "<RVS ON} SONG MODE {RVS 

OFF>" 

1110 CHAR1, 14,7, "P PLAY SONG" 

1120 CHAR1, 14,9, "L LOAD SONG" 

1130 CHAR1, 14, 11, "S SAVE SONG" 

1140 CHAR1, 14, 13, "E EDIT SONG" 

1150 CHAR1, 14, 16, "X EXIT MENU" 

1160 GETA*: IFA*="X"THENRETURN 

1 1 70 I F A*= " P " THENGOSUB 1 230 : GOTO 1 090 

1180 IFA*="L U THENGOSUB1340:GOTO1090 

1190 IFA*="S"THENGOSUB1510:GOTO1090 

1200 IFA*="E" THENGOSUB 1650: GOTO 1090 

1210 GOTO1160 

1220 REM PLAY SONG 

1230 IFSO=0THENPRINT"<CLR}{CUR DNMCUR RT> 

NO SONG IN MEMORY !": FORT=1TO1000: NEXT: RET 

URN 

1240 PRINT" fCLR>PLAY SONG MODE { CUR DNXCUR 

DNXCUR DN>€CUR DNXCUR DNJX TO EXIT" 
1250 P=0:Q=0 
1 260 GET A* : I F A*= " X " THENRETURN 
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1270 GOSUB990 

1 280 M=MU < P , , Q ) : I FMTHENSOUND 1 , M , TEMPCHK5 

1 290 N=MU < P , 1 , Q ) : I FNTHENSOUND2 , N , TEMPO*3 

1300 IFM+N=0THENFORT=1TOTEMPO*50: NEXT 

1310 Q=Q+l: IFQ=16THENQ=0:P=P+l: IFP=8THEN12 

50 

1320 GOTO 1260 

1330 REM LOAD SONG 

1340 IFSI=0THEN1380 

1350 PRINT" tCLR>":CHARl, 5, 5, "OVERWRITE CUR 

RENT SONG Y/N ?" 

1360 GETA*: IFA*="N"THENRETURN 

1370 IFA*O"Y"THEN1360 

1380 PRINT" {CLR>LOAD MODE" 

1390 CHAR1,1,5," ": INPUT"FILENAME <MAX 8 C 

HARS) " ;FI* 

1400 IFLEN(FI*> <10RLEN(FI*) >8THEN1390 

1410 IFFI*="X"THENRETURN 

1420 OPEN1, 1,0,FI* 

1430 FORR=0TO7 

1440 FORS=0TO1 

1450 FORT=0TO15 

1460 input#1,mu(r,s,t> 

1470 nextt,s,r:closei:si=i:so=i 

1480 RETURN 

1490 PRINT"<CUR DNXCUR RT >DONE . " : FORT=lTO 

1000: NEXT 

1500 REM SAVE SONG 

1510 IFSI=0THENPRINT"<CLRMCUR DNXCUR RT> 

NO SONG IN MEMORY !": FORT=1TO1000: NEXT: RET 

URN 

1520 PRINT "<CLR>SAVE MODE" 

1530 CHAR1,1,5," ": INPUT "FILENAME (MAX 8 C 

HARS) " ;FI* 

1540 IFLEN(FI*X10RLEN<FI*) >8THEN1530 

1550 IFFI*="X"THENRETURN 

1560 OPEN1, 1,2,FI* 

1570 FORR=0TO7 

1580 FORS=0TO1 

1590 FORT=0TO15 

1600 PRINT#1,MU(R,S,T) 

1610 NEXTT,S,R:CLOSEl 

1620 PRINT"<CUR DNXCUR RT 1DONE . " : FORT=lTO 

1000: NEXT 

1630 RETURN 
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1640 REM EDIT SONG 

1650 IFSI=0THENPRINT"<CLRXCUR DNXCUR RT> 

NO SEQUENCES IN MEMORY ! " : FORT=1TO1000: NEX 

T: RETURN 

1660 PRINT" {CLR>EDIT MODE" 

1670 CHAR1, 1,5, "KEY IN ANY 8 SEQUENCES TO 

MAKE A SONG":SO=l 

1680 FORR=0TO7:CHAR1,12+R*2,10, "{*T>":NEXT 

1 690 FORR=0TO7 : A*= " " 

1700 GET A*: IFA*<"1"ORA*>"8"THEN1700:ELSEA= 

VAL(A*) -1 

1710 CHAR1, 12+R*2,9, A* 

1720 FORS=0TO15: AA <R, 0, S) =MU < A, 0, S) : AA<R, 1 

,S)=MU(A, 1,S) 

1730 NEXTS,R 

1740 PRINT:PRINT"{CUR DNMCUR DNXCUR RT>W 

AIT A MOMENT. . . - 

1 750 FORR=0TO7 : FORS=0TO 1 : FORT=0TO 1 5 

1760 MU<R,S,T)=AA(R,S,T) 

1770 NEXTT,S,R 

1780 PRINT" <CUR DNXCUR DNXCUR RT>DONE.": 

FORT=1TO1000: NEXT 

1790 RETURN 

1800 FORT=1TO200: NEXT: FORT=0TO38: CHAR 1 , T, 3 

," ": NEXT: RETURN 

1810 REM DISPLAY 

1820 FORR=0TO15 

1830 X=MU(SQ,0,R) : IFX=0THENX=46:CC=l:ELSEG 

OSUB1960 

1840 POKE3516+R*2, X: POKE2492+R*2, CC 

1 850 X=MU ( SQ , 1 , R ) : I FX=0THENX=46 : CC= 1 : ELSEG 

OSUB1960 

1860 POKE3596+R*2 , X : POKE2572+R*2 , CC 

1870 NEXT: RETURN 

1 890 DATA 169, 205 , 262 , 303 , 345 , 383 , 425 , 453 , 4 

85,516,545,571 

1900 DAT A596, 619, 643, 667, 685, 704, 723, 739, 7 

55,770,785,798 

1910 DATA810, 822 , 834 , 844 , 854 , 864 , 873 , 881 , 8 

89,897,904,911 

1930 DATA3, 131,4, 132, 5, 6, 134, 7, 135, 1, 129,2 
1940 DATA3, 131,4, 132,5,6, 134,7, 135, 1, 129,2 
1950 DATA3, 131 , 4, 132 j 5, 6, 134, 7, 135, 1, 129,2 
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1960 RR=0 

1 970 I FN < RR ) =XTHEN 1 980 : ELSERR=RR+ 1 : GOTO 1 97 



1980 X=NC<RR> : IFRR<12THENCC=0: RETURN 

1990 IFRR>23THENCC=1 13: RETURN 

2000 CC=37: RETURN 



Final Words 



In producing this book an attempt has been made to adopt a 
standard of game which is well above the norm. 

This naturally leads to longer programs which require greater care 
to enter. The time will come therefore when you will need to debug 
your programs. This is when you have the opportunity to try to 
understand how and why the programs work. 

To help you in this task there follows a 'debug guide'. 



General points 

1 . Get someone else to double check that the entry matches the 
listing. Say it out loud. 

2. Double check any special characters. Reread the chapter 
entitled Important Entry Notes. 

3. Be careful that an I has not been confused with a 1. 

4. Ensure that lower case 'a' is entered as such and not 'A'. 

5. Watch out for ';' instead of':'. 

6. Double check spaces by reference to the spaces above and 
below. 

7. Double check line numbers. Don't confuse a number which 
flows over onto another line as a line number. 

8. Treble check data. It is very easy to skip a few numbers. As an 
overall check, count how many commas and compare with the 
listing. 

9. Make sure that all quotes are in. 

10. Is there really a fault? Reread the instructions for play. Most 
responses need to be followed by the RETURN key. 
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1. Special characters have been used for listing. Familiarise 
yourself with these, on a simple program first. We anticipate some 
problems from readers in using this technique, but consider the 
finished results to be worth while for the majority. 

2. One of the main sources of program failure is the handling of 
bad entries. For example, a program may crash if an unexpected 
minus number were entered. It is possible to anticipate most 'silly' 
entries but only at the expense of needlessly longer listings. In writing 
these programs it has been assumed that the player will not set out to 
crash the program! They are therefore only protected against class 
three idiots. If you will be exposing your finished efforts to a hostile 
environment then it is up to you to protect against class one idiots. 

3. All programs should work equally well on monochrome sets, 
but change the colours (after saving the correct version) to suit your 
own taste. 

4. It is always good practice to load into a machine which has just 
been powered up. This can avoid problems if the previous program 
left something changed deep within the machine. 

5. If a program crashes producing a weird screen, type in the 
following (be careful because what you type will not be seen on 
screen). 

POKE 65298, 196: POKE 65299, 209 [RETURN] 

The screen should return to normal, with an error message. Pressing 
'help' will then highlight the problem. 



Debugging 

If none of the foregoing resolve the problem then roll up your sleeves 
and note some of these tips. 

1 . If an error message indicates a fault is in a particular line, but it 
looks right when examined, remember that the fault could be in the 
line which passes information to that line. Check back related lines. 

2. Errors such as 'Out of range', 'Improper argument', etc., maybe 
traced as above. To help type 'PRINT A' or whatever variables are 
used in that line. This should indicate the problem. 

3. Bits being missed out! The 'TRON' function will show the order 
in which lines are called, often highlighting a rogue 'GOSUB' or similar 
problem. 
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4. Work methodically. Consider each section in turn. Set 'Break 
points' using 'End' or dump out variables by adding a short print line 
in the middle of the faulty routine. 

5. Temporarily disable sections of program by adding a 'REM' to 
the start of a line. See what the effect is. 

6. Re-type the section responsible! 

7. Use the 'TRAP' function as described in the manual. 

8. To RESET without losing the program, first hold down the 
RUN/ STOP key and then whilst held, press the RESET. 

The machine will then initialise to the built in machine code 
monitor. To return to BASIC simply type 'X' [RETURN] and you 
can list to correct any errors before running again. 

9. Go to bed - have a sleep. It sometimes works the next day! 
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